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SEO 0001 



.REM X 



IDENTIFICATION 

AC-8954E-WC 

CZM9AC0 BOCTSTWP/TEWIP^rOP (H9301 . P«400> 
APRIL. 1979 
DIAGNOSTIC ENGINCERINb 



PRODUCT CODE 
PRODUCT NAME 
PROGRAn DATE 
HAINTAINER: 



THE INFORMATION IN THIS DOCIHENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COmiTnENT BY DIGITAL 
EOUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSIJCS 
. NO RESPONSIBILITY FOR ANY ERRORS THAT ffMV APPEAR IN THIS Oa^iflENT 

THE SOFTWARE DESCRIBED IN THIS DOClf€NT IS FURNISHED LMDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSl/lES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1976. 1979 BY DIGITAL EQUIPMENT CORPORAMON 
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50 

51 • * 

5^ • SUMMARY OF OPERATING INSTRUCTIONS • 

53 • • 

5^ ft************************************ 

55 
56 

57 THE FOLLOWING PROCEDURE CAN BE USED TO RUN THIS DIAGNOSTIC 

58 IN A DEVICE VERIFICATION MODE. IF THE PROGRAM DOES NOT 

59 RUN SUCCESSFULLY CONSULT THE FOLLOWING DOCUMENT FOR ASSISTANCE. 
60 

61 OPERATING PROCEDURE: 

62 

tl 1 . LOAD THE PROGRAM USING NORMAL PROCEDURES. 

65 2. LOAD ADDRESS 200 

67 3. SET SWITCH REGISTER TO SELECT THE PROPER 

68 VERSION OF THE ROM UNDER TEST. 

69 (SEE INSTRUCTIONS IF A SOFTWARE SWITCH REGISTER 

70 IS TO BE USED.) 

71 

72 PRESS START 

tI 5. THE PROGRAM SHOULD TAKE ABOUT 1 SEC TO 

75 COMPLETE THE TEST AND PRINT: 'tND OF TEST". 

76 

77 6. IF THE PROGRAM DOES NOT RUN AS DESCRIBED 

78 ABOVE. CONSULT THE FULL OPERATING INSTRUCTIONS 

79 WHICH FOLLOW. 

80 
81 

82 * • CAUTION • • 

8^ 

84 BECAUSE THE CONTENTS READ FROM LOCATION 773024 

85 OF THE M9301 OPTION IS CONFIGURATION DEPENDANT (SWITCH 

86 REGISTER DEPENDANT), THIS LOCATION IS NOT INCLUDED IN 

87 THE DATA CHECK. 

88 THIS LOCATION CAN BE VERIFIED BY fJCAMINING IT OR BY USING 

89 THE ALTERNATE STARTING ADDRESS (SEE SECTION 2.1 .3) TO 

90 PRINT OUT THIS LOCATION. 
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92 1.0 GENERAL PROGRAM INFORMATION 

93 

9A 

95 1.1 PROGRAM PURPOSE 

% — 

97 

98 THIS DIAGNOSTIC PROGRAM IS INTENDED TO VERIFY THE 

99 ROM CONTENTS OF THE ROM BOOTSTRAP MODULES. THE PROGRAM 

100 COMPUTES AND CHECKS A CYCLIC REDUNDANCY CHARACTER 

101 AND A LONGITUDINAL PARITY CHARACTER FOR THE CONTENTS 

102 OF THE ROM STORAGE AVAILABLE IN AN M9301 OR M9400 MODULE. 

104 A SEPARATE ROUTINE INCLUDED ALLOWS THE USER TO TYPE 

105 THE CONTENTS OF THE ROM STORAGE ON THE TELETYPE AS 

106 AN AID TO DEBUGGING. 

107 

108 1.2 SYSTEM REQUIREMENTS 

109 

110 

111 1.2.1 HARDWARE 

112 

115 

lU PDP/11 PROCESSOR 

115 TELETYPE OR EQUIVALENT 

116 4K OF MEMORY 

117 M9301 OR M9400 MODULE 

118 

119 1.2.2 SOFTWARE 

120 

122 THIS PROGRAM IS WRITTEN TO BE RlW AS A STAND-ALONE PROGflAM. 

125 HOWEVER, THE PROGRAM IS DESIGNED TO RUN UNDER AUTOMATED 
12A PRODUCT TEST SYSTEM (APT) IN ALL THREE MODES. 

126 THE PROGRAM CAN ALSO BE RLW UNDER THE ACT 11 MONITOR. 

127 

128 1.3 RELATED DOCLWENTS AND STANDARDS 

129 

130 

131 DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS PROGRAMMING PRACTICES 

132 OOClflENT NO. 175-005-009-00 
133 

13« APT INTERFACE SPECIFICATION. REV. 13 
135 

136 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

137 

138 

139 NONE, HOWEVER THE CPU IS ASSUMED TO BE FUNCTIONING 
UO 

Ul 1.5 FAILURE ASSUMPTIONS 
K2 
H3 

144 THE PROCESSOR IS ASSlflED TO BE FUNCTIONING PROPERLY. 



E 1 

.NWIN. MACvn 30A(1052) 17-APR-79 10: U PAGE 5 
CZM9AE.P11 17-APR-79 10:12 

1A5 

U6 2.0 OPERATING INSTRUCTIONS 



K8 

K9 2.1 LOADiNG AND STARTING PROCEDURES 
150 — 

151 

152 2.1.1 LOADING 

153 

15A 

■"55 USE NORMAL PROCEDURES FOR LOADING DIAGNOSTIC PROGRAMS. 

156 

157 2.1.2 NORMAL START 

156 
159 

160 1. LOAD SOFTWARE SWITCH REGISTER (IF USED) TO SELECT THE 

161 ROM VERSION UNDER TEST. (SEE 2.3) 

162 

163 2. LOAD ADDRESS 200 

164 

165 3. SET HARDWARE SWITCH REGISTER (IF AVAILABLE? TO SELECT THE 

166 POM VERSION UNDER TEST (SEE 2.3). " 
167 

168 4. START 

169 

170 2.1.3 OPTIONAL START 

171 

172 

173 THE OPTIONAL STARTING ADDRESS IS USED TO TYPE OUT THE CONTENTS 

174 OF THE ROM FOR USE IN VISUAL VERIFRATION OR AS A DEBUGGING 

175 TOOL. 

176 

177 USE THE SAME PROCEDURE AS A NORMAL START EKCEPT USE 

178 ADDRESS 210 IN STEP 2. 

179 

180 2.2 SPECIAL ENVIROI^NTS 

181 

182 

185 THIS PROGRAM IS WRITTEN TO COMPLY WITH ALL TH€ REQUIREMENTS 

184 OF THE APT INTERFACE SPECIFICATION. IT WILL RLW IWDER APT 

185 IN EITHER QUICK VERIFY, PROGRAM OR RlfJ-TIME MODES. 
186 

187 THIS PROGRAM IS WRITTEN TO COMPLY WITH THE ACTII/XXDP 

188 INTERFACE REQUIREMENTS. 
189 

190 WHEN RUNNING IN ACT11 QUICK VERIFY OR XXDP CHAIN MODE 

191 (LOC. 42 NOT 0), OR APT QUICK VERIFY AND PROGRAM MODE 

192 THE PROGRAM ATTEMPTS TO RUN WITHOUT OPERATOR 

193 INTERVENTION OR SWITCH REGISTER SELECTION. THE 

194 COMPUTED CRC IS COMPARED AGAINST THE CRC FOR ALL KNOWN 

195 VERSIONS OF THE ROM BOOTSTRAP. WHEN A HATCH IS FOUND ThE 

196 VERSION OF THE MODULE IS TYPED FOR VISUAL VERIFICATION. 
197 
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198 

199 2.3 PROGRAM OPT JONS 

200 

202 THE PROGRAM AUTOMATICALLY CHECKS FOR THE PRESENCE OF 

203 A HARDWARE SWITCH REGISTER. IF NO R£SPO^'SE IS FOUND WHEN 
20^ ADDRESSING THE HARDWARE SWR (177570). THE ADDRESS 

205 OF THE SOFTWARE SWR (176) IS SUBSTITUTED. 

207 FOR PROCESSORS WITH NO HARDWARE SWITCH REGISTER, THE OPERATOR 

208 SHOULD SET THE DESIRED SWITCH VAlUE IN LOCATION 176 
209 

210 WARNING... IN ORDER TO ALLOW TESTING OF M7942-Y8 BOARD's ON THE vr7\ 

In IF LOCATION 176 IS SET TO 6, THE SOFTWARE SWITCH REGISTER WILL 8€ 

212 USED REGARDLESS OF HARDWARE SWITCH REGISTER AVAILABILITY. 

213 

21A 2.3.1 SWITCH SELECTION 

216 THe'swITCH register (HARDWARE OR SOFTWARE) IS USED TO SELECT 

217 THE VERSION OF THE ROM BOOTSTRAP TO BE TESTED 

218 ACCORDING TO THE FOLLOWING TABLE. NOTE: THESE SETTINGS ARE 

219 OCTAL Nl/BERS. THEY ARE NOT PARTICULAR SWITCHES SET TO A 

220 ONE. FOR EXAMPLE, TO SELECT THE M9301-YH VERSION. SET 

221 SWITCHES #3 AND #1 IN THE SWITCH REGISTER. THIS 

222 CORRESPONDS TO AN OCTAL 12. 

22I SWR MODULE VERSION 

225 

227 1 M9301-VA 

228 2 M9301-Y8 

229 3 M9301-VC 

230 A M9400-yA (OR rO 

231 5 M9301-yf 

232 6 M79A2-Y8 

233 7 M9301-YD 

23'; 10 M9400-VH (OR VK) 

?35 11 M9311 REVISION • SEE NOTE BEwOW 

236 12 M9301-YH 

237 13 M9301-YE 

238 K M9301-YJ 

239 15 M9A0O-VN 

240 16 M9311 REVISION A SEE NOTE BELOW 

241 

242 NOTE: FOR M9311 ONLY , „ « 

243 IF ROM IN LOCATION E-5 IS #23-52«A9 . THEN 

244 YOU HAVE REVISION (I.E. USE SWR 11 SETTING) 

245 

246 IF ROM IN LOCATION E-5 IS #23-688A9 , THEN 

247 YOU HAVE REVISION A .( I.E. USE SWR 16 SETTING) 

248 
249 

250 IF THE CRC AND LPC FOR NEW VERSIONS ARE KNOfcW BUT 

251 NOT IN THE ABOVE TABLE, SET THE SWITCH REGISTER TO ZERO 

252 AND ANSWER ^HE TELETYPE DIALOG. 

253 
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254 TO DETERMINE THE CRC AND LPC FOR A NEW VERSION. START 

255 THE DIAGNOSTIC AT 200 WITH SWR=0, ANSWER 0 TO THE 

256 REQUESTS FOR THE LPC AND CRC. THE RESULTING MESSAGES 

257 WILL INDICATE THE CORRECT FUTURE RESPONSES FOR CRC AND 

258 LPC PROVIDED THE TEST IS RUN ON A KNOWN-GOOD MODULE. 

260 2.3.2 TELETYPE DIALOG 

261 

?6? 

263 SEVERAL QUESTIONS ARE ASKED OF THE OPERATOR IN ORDER 

26A TO C«TAIN SUFFICIENT INFORMATION FOR TESTING A ROM MODULE 

265 NOT PREVIOUSLY SUPPORTED IN THE DIAGNOSTIC. THE DIALOG 

266 IS INITIATED IF THE PROGRAM IS STARTED WITH THE SWR = 0. 

267 ALL RESPONSES ARE IN OCTAL AND TERMINATED BY A 

268 CARRIAGE RETURN. 
269 

270 ALL RESPONSES ARE CHECKED FOR VALID OCTAL NtfeERS. 

271 IF AN ILLEGAL CHARACTER IS TYPED, THE PROGRAM WILL TvPE 

272 A "?". CARRIAGE RETURN-LINE FEED AND 

273 AWAIT THE PROPER INPUT. 

27A 

275 IF A MISTAKE IS NOTICED BEFORE THE CARRIAGE RETURN IS USED 

276 TO TERMINATE THE INPUT, A RU80UT CAN BF; 

277 USED TO DELETE MISTYPED INPUT. 
278 

279 1. TYPE CRC VALUE: 

230 THIS REQUESTS THE VALUE OF THE CYCLIC REDUNDANCY CHECK 

281 PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROW MODULE. 

282 IT IS THE VALUE AGAINST WHICH THE UNIT IWDER TEST'S CRC 

283 WILL BE COMPARED. 
28A 

285 2. TYPE LPC VALUE: 

286 THIS REQUESTS THE VAULE OF THE LONGITUDINAL PARITY CHECK 

287 PREVIOUSLY CALCULATED FOR THIS VERSION OF THE ROM MODULE. 

288 IT IS THE VALUE AGAINST WHICH THE UNIT UNDER TEST'S LPC 

289 WILL BE COMPARED. 

290 

291 3. TYPE STARTING ADDR. OF 1ST ROM AODR. SPACE: 

292 THIS QUESTION REFERS TO "^HE FACT THAT THE ROM SPACE IN 

293 AROM BOOTSTRAP MODULE IS DIVIDED INTO I DISTINCT ADDRESS SPACES. TYPE 
29A THE STARTING ADDRESS OF THE 1ST RANGE OF ADDRESSES. THE 
295 STANDARD M930V I M9A00 BEGIN AT 173000. 
296 

297 A. TYPE LENGTH (BYTES) OF 1ST ROM ADDR. SPACE: 

298 THIS REQUESTS THE LENGTH OF THE 1ST GROUP OF ROM ADDRESSES 
?Q9 IN BYTES. THE STANDARD M9301 I M9A00 HAVE AN INITIAL ADDRESS SPACE 

300 OF 1000 BYTES. IF THIS SECTION OF ADDRESSES IS NOT 

301 USED BY THIS VERSION, ANSWER 0 TO THIS QUESTION. 
302 

303 5. TYPE STARTING ADDR. OF 2ND ROM ADDR. SPACE: 

30A THIS REFERS TO THE FIRST ADDRESS IN THE SECOND DISTINCT 

305 GROUP OF ROM ADDRESSES. THE RESPONSE FOR A STANDARD 

306 M9301 I M9400 WOULD BE 165000. 

307 6. TYPE LENGTH (BYTES) OF 2ND ROM ADDR. SPACE: 

308 THIS REQUESTS THE LENGTH OF THE 2ND GROUP OF ROM ADDRESSES 

309 IN BYTES. THE STANDARD M9301 % M9400 HAVE A SECOND ADDRESS St^A^'E 
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310 OP 1000 BYTES. IF THIS SECTION OF ADDRESSES IS NOT uSfD 

311 BY THIS VERSION, ANSWER 0 TO THIS QUESTION. 

313 EXECUTION TIMES 

3K 

316 THE DIAGNOSTIC COMPLETES 1 PASS IN LESS THAN 1 SEC. 

317 ONCE THE INPUT DIALOG HAS BEEN COMPLETED. 

318 THE PROGRAM WILL HALT UPON COMPLETION; HOWE/ER, IF RUNNING 

319 UNDER APT THE PROGRAM WILL CYC.E CONTINUOUSLY. 
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320 

321 3.0 ERROR INFORMATiON 

322 

323 

32A WHEN THE DIAGNOSTIC DETECTS A DISCREPANCY Bf TWEEN THE 

325 EXPECTED AND COMPUTED CRC OR LPC BOTH ARE PRINTED 

326 ON THE TELETYPE. 

327 

328 ANY DISCREPANCY IN THE LPC CAN ASSIST IN ISOLATING THE 

329 PROBLEM TO THE ROM IC. 

330 

331 UNDER APT THE ERROR IS INDICATED BY DEPOSITING ERROR INFORMATION 

352 IN THE APT MAILBOX BEFORE HALTING. 

333 

33A A.O PROGRESS REPORTS 

^35 

336 

337 AT THE END OF EACH PASS THE PROGRAM INCREMENTS TO THE 

338 LOCATION $PASS WHICH IS IN THE APT MAILBOX. THIS 

339 LOCATION WILL ALWAYS CONTAIN THE NUMBER OF PASSES 
3A0 COMPLETED. SPASS IS RESET WITH EVERY RESTART. 

3A1 

3A2 ADDITIONALLY, THE MESSAGE '^ND OF TEST" IS PRINTED UN THE CONSOLE 

3A3 TELETYPE AFTER EACH PASS. NORMALLY ONLY ONE PASS NEEDS 

TO RUN TO VERIFY THE MODULE. 

345 

346 5.0 TROIBLE SHOOTING 

347 

548 

349 THE ALGORITHM FOR COMPUTING THE CRC IS THE SAME AS THAT 

350 USED ON 9-TRACK MAGNETIC TAPE WITH ODD PARITY. THE 

351 CRC IS CALCULATED ON A BYTE-BY-SYTE BASIS. WHILE iHE 

352 ALGORITHM IS SUCCESSFUL IN DETECTING MULTIPLE ERRORS, ITS 
35^; USE AS A DEBUGGING AID IS LIMITED. 

354 

355 THE LPC IS CALCULATED BY ASSEMBLING THE XOR OF EVERY 

^56 WORD IN THE ROM. WHILE ONLY USfcFUL IN CATCHING AN 

357 ODD NUMBER OF ERRORS IN EACH BIT POSITION. IT IS VERY 

358 USEFUL IN ISOLATING THE PROBLEM TO A CHIP. BY LOCATING WHICH 

359 BIT POSITIONS ARE IN DISCREPANCY, THE CORRESPONDING ROM 

360 CHIPS CAN BE ISOLATED. 
361 

362 IF NO OTHER CLUES CAN BE OBTAINED, START THE PROGRAM 

^3 AT 210 AND COW>ARE THE PRINTOUT OF THE CODE WITH THE 

364 LISTING FOR THE VERSION BEING TESTED. 

365 
366 

367 » • CAUTION • * 

563 

369 BECAUSE THE CONTENTS READ FROM LOCATION 773024 

57C OF THE M9301 OPTION IS CONFIGURATION DEPENDANT ( SWI TCH 

371 REGISTER DEPENDANT), THIS LOCATION IS NOT INCLUDED IN 

572 THE DATA CHECK. 

373 THIS LOCATION CAN BE VERIFIED BY EXAMINING IT OR BY USING 

374 THE ALTERNATE STARTING ATDRESSCSEE SECTION 2.1.5) TO 
575 PRINT OJT THIS LOCATION. 



176 

377 

378 

379 

380 

381 

382 

383 

38^ 
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385 
386 
387 
388 
389 
390 
391 
392 
393 
39A 
395 
396 
397 
398 
399 
400 
A01 
A02 
A03 
AOA 
AOS 
A06 
A07 
A08 
A09 
A10 
All 
A12 
A13 
A1A 
A15 
A16 
A17 
'.IS 
A19 
A20 
A21 
L22 
A23 
A2A 
A25 
a26 
t^27 
if28 
429 
A30 
A31 
A32 
A33 
A3A 
A35 
A36 
A37 
A38 
A 39 
AAO 
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000000 



001100 



000011 
000012 
000015 

000200 
177776 

17777A 
^77772 
1 77570 
1 77570 



000000 
000001 
000002 
000003 
OOOOOA 
000005 
000006 
000007 
C00006 
000007 



000000 
OOOOAO 
000100 
0001 AO 
000200 
0002A0 
000300 
0003A0 



100000 
CAOOOO 
020000 
010000 
OOAOOO 
002000 
001000 
OOOAOO 
0002C0 
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SEO 0010 



• LIST 
.NLIST 
SSWR=0 
•SaTTL 



ME 

MC.MD.CND 

BASIC OEFJNJTJONS 



; "INITIAL ADDRESj Oh THE STACK POINTER •** 1100 
?TACK= 1100 

.EQUIV EMT, ERROR ;, -BASIC DEFINITION OF ERROR CALL 

.EQUIV IDT. SCOPE ;;BASIC DEFINITION OF SCOPE CALL 



.•♦MISCELLANEOUS DEFINITIONS 

CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE ^IIH 
PROCESSOR STATUS WORD 



HT= 
LF = 
CR= 
CRLF= 
PS= 
, EQUIV 



11 
12 
15 
200 
177776 
PS^PSU 



STKLMT= 17^77A 
PIRQ= \77772 
DSWR= 177570 
DDISP= 177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



;*GENERAL PURPOSE REGISTER DEFINITIONS 



R0= 
Rl = 
R2= 
R3= 
RA= 
R5= 
R6= 
R7= 
SP= 
PC= 



XO 
Xl 
X2 
X3 
XA 
X5 
X6 
X7 
X6 
X7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



.•♦PRIORITY LEVEL DEFINITIONS 



PRO= 
PR1 = 
PR2= 
PR3= 
PRA= 
PR 5= 
PR6= 
PR7= 

; "SWI 

SW15= 
SW1A= 
SW13= 
SWI 2= 
SW11 = 
SW10= 
SW09= 
SW08= 
SW07= 



0 
AO 
100 
UO 
200 
2A0 
300 
3A0 



PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL A 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 1 



TCH REGISTER" SWITCH DEFINITIONS 

100000 

AOOOO 

20000 

10000 

AOOO 

2000 

1000 

AOO 

200 
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4A1 000100 SU06= 100 

^A2 000040 SW05= 40 

AA3 000020 SUOA^ 20 
000010 SU03= 10 

4A5 000004 SW02= 4 

A46 000002 SW01= 2 

447 000001 SU00= 1 

448 .EQUIV SW09.SW9 

449 .EQUIV SW08,SW8 

450 .EQUIV SU07,SW7 

451 .EQUIV SW06,SW6 

452 .EOUJV SUOS.SWS 

453 .EQUIV SU04.SW4 

454 .EQUIV SW03.SW3 

455 .EQUIV SUI02.SW2 

456 .EQUIV SW01.SW1 

457 .EQUIV SUOO.SUO 
458 

459 ;*DATA BIT DEFINITIONS (81 TOO TO 8IT15) 

460 100000 BIT15= 100000 

461 040000 BIT 14= 40000 
^62 020000 BIT 13= 20000 
'^63 010000 BIT 12= 10000 

464 004000 BIT11= 4000 

465 002000 BIT 10= 2000 

466 001000 BIT09= 1000 

467 000400 BIT08= 400 

468 000200 81107= 200 

469 000100 BIT06= 100 

470 000040 8IT05= 40 

471 000020 BIT04= 20 

472 000010 BIT03= 10 

473 000004 BIT02= 4 

474 000002 8IT01= 2 

475 000001 BITOO= 1 

476 .EQUIV BIT09.8IT9 

477 .EQUIV BIT08,8ir8 

478 .EOUIV 8IT07,8IT7 

479 .EOUIV 8IT06,8IT6 

480 .EOUIV BIT05,81T5 

481 .EOUIV BIT04,8IT4 

482 .EOUIV BIT03.8IT3 

483 .EQUIV aiT02,8IT2 

484 .EOUIV 8IT0U8IT1 

485 .EOUIV 8IT00,8IT0 
486 

487 ;*aASIC "CPU" TRAP VECTOR ADDRESSES 

488 000004 ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 

489 000010 RESVEC= 10 ; .-RESERVED AND ILLEGAL INSTRUCTIONS 

490 000014 T8ITVEC=14 ;;"T" BIT 

491 000014 TRTVEC= 14 ;; TRACE TRAP 

492 000014 BPTVEC= 14 ;;BREAKPOINT TRAP (8PT> 

493 000020 IOTV£C= 20 ;; INPUT/OUTPUT TRAP (lOT) **SCOPE»» 

494 000024 PWRVEC= 24 ;; POWER FAIL 

495 000030 EMTVEC= 30 ;;E«ULAT0R TRAP (EMT) ••ERROR** 

496 000034 TRAPVEC=34 ;;"TRAP" TRAP 
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497 
A98 
A99 
500 
501 
502 
503 
504 
505 
506 
507 

508 0001 74 

509 000176 
510 

511 000200 

512 000204 

513 000210 

514 000216 
515 

516 
517 
518 
519 

520 001000 

521 001002 

522 001004 

523 001006 

524 001010 

525 001012 

526 001014 

527 001016 

528 001020 

529 001022 

530 001024 

531 001026 

532 001030 
533 

534 
535 
5J6 
537 
^,38 
539 

540 000046 
541 

542 000052 

543 

•544 

545 

546 

547 

548 

549 

550 

551 U00024 
55^ 



000060 
000064 
000240 
000000 



000000 
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BASIC DEFINITIONS 

TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 
.=0 

.S8TTL TRAP CATCHER 
.=0 



0001 74 
000000 
000000 
000200 

005067 000624 
000167 000666 
012767 000001 000612 
000167 000654 

177776 
000034 

001000 
1 77570 
177570 
173000 
001000 
165000 
001000 
000000 
OOOOOO 
000000 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



001032 
000046 
002060 
000052 
OOOOOO 
001032 



001032 
000024 
000200 
000044 



M 1 



;;TTY KEYBOARD VECTOR 

;;TTY PRINTER VECTOR 

;. -PROGRAM INTERRUPT REQUEST VECTOR 



5E0 0012 



;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".>2,HALT" 
.••SEQUENCE TO CATCH ILLEGAL TRAPS AND INIERRUPTS 
;*l0CATI0N 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 



DISPREG: 
SWREG: 
.=200 



.WORD 
.WORD 

CLR 
JMP 
MOV 
JMP 



0 
0 

TYPOUT 
START 
#1, TYPOUT 
START 



;; SOFTWARE DISPLAY REGISTER 
;;S0FTWARE SWITCH REGISTER 



PS=1 77776 
TRAPVEC=34 

.=1000 

SWR: 177570 
DISPLAY: 177570 
R0MSA1: 173000 
DATLN1: 512. 
R0MSA2: 165000 
DATLN2: 512. 
XORS: 0 
EXCRC: 0 
EXLPC: 0 
ACTCRC; 0 
ACTLPC: 0 
PARCNT: 0 
TYPOUT: 0 

.S8TTL ACni HOOKS 

• • »»*«••*»•*»***••*••«••••*•••••*•••*»•**•**••••*••***••••••»***• 

: HOOKS REQUIRED BY ACTII 
$SVPC=. 



.=46 
SENDAD 

.=52 

.WORD 0 
.=$SVPC 
.S8TTL APT PARAMF't 



BLOCK 



.-SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .$EOP 

;;2)SET LOC.52 TO ZERO 
;; RESTORE PC 



;SET LOCATIONS 24 AND 44 AS RCOUJRED FOR APT 

■ • *••»•*••***•* •*•••*••****•••*•••*••*••••••»••••••*•••**• 

.%X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.=44 ; .-POINT TO APT INDIRECT ADDRESS PNTR. 



.HAIN. MACY11 30A(1052) I 7-APR-79 
CZMQAE.Pil 17-APR-79 10:1? 



553 000044 

554 

555 

556 

557 

558 

559 001032 

560 001032 

561 001034 

562 001036 

563 001040 

564 001042 

565 001044 
566 

567 
568 
569 

570 001046 

571 001046 

572 001050 

573 001052 

574 001054 

575 001056 

576 00:060 

577 001062 

578 001064 

579 001066 

580 001066 

581 001067 

582 001070 

583 001072 

584 001074 
585 

586 
587 
588 
589 
590 

591 001076 

592 

593 

594 001076 

595 001102 

596 001106 
597 

598 001114 
599 

600 001120 

601 001126 

602 001134 

603 001142 
604 

605 

606 001150 

607 001154 

608 001162 



001032 
001032 



000000 
001046 
000002 
000002 
000000 
000014 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000 
000 
000000 
000000 
000000 



005067 
005067 
012767 



177746 
177740 
000001 
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APT PARAMETER BLOCK 



N 1 



SEO 0013 



012706 000500 



012737 
012737 
012737 
012737 



013746 
012737 
012767 



004570 
000340 
004412 
000340 



000004 
001210 
177570 



177736 



000034 
000036 
000024 
000026 



000004 
177610 



SAPTHDR ; .-POINT TO APT HEADER BLOCK 
. = .SX ; .-RESET LOCATION COUNTER 
***************************************************************** 

•SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
.-INTERFACE SPEC. 



SAPTHD 
SHIBTS 
y«ADR 
STSTM: 
SPASTM 
SUNITM 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

SMAiL 

2 
2 
0 



TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



.S8TTL APT MAI L80X-E TABLE 



$ETEND-$MAIL/2 ;;LENGTH MAIL80X-ETABLE (WORDS) 



.EVEN 

SMAIL: 

SMSGTY: 

SFATAL: 

STESTN: 

SPASS: 

SDEVCT: 

SUNIT; 

SMSGAD: 

SMSGLG: 

$E TABLE; 

$ENV: 

SENVM: 

SSWREG: 

$USWR: 

SCPUOP: 

• » 

;* 
■ • 

;* 

SETEND: 
.MEXIT 

START: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMSGLG 

AENV 

AENVn 

ASWREG 

AUSWR 

ACPUOP 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR Nl/OER 
TEST Nl^ER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIROMiENT TABLE 
ENVIROfWENT BYTE 
ENVIROI#€NT MODE BITS 
APT SWITCH REGISTER 
USER SWITCHES 
CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 . 1 1 /05=02 , 1 1 /20=03, 1 1 /40=04 . 1 1 /45=05 
11/70=06.PDO=07,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9sFL0AriNG POINT PROCESSOR 
BIT S^MORV MANAGEMENT 



CLR 
CLR 
MOV 



SFATAL 
SMS6TVP 
#1,$TESTN 



.S8TTL INITIALIZE THE COMMON 



MOV 
;; INITIALIZE 
MOV 
MOV 
MOV 
MOV 
;;SIZE FOR A 
;; EQUAL TO A 
MOV 
MOV 
MOV 



.CLEAR ERROR NO. 

.-CLEAR MESSAGE TYPE (APT) 

;SET TEST NO. 

TAGS 

;; SETUP THE STACK POINTER 



#500, SP 
A FEW VECTORS 

#STRAP,a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340,a#TRAPVEC*2; LEVEL 7 
#$PWRDN,a#PWRVEC ;;POWER FAILURE VECTOR 
#340.a»PWRVEC•^2 ;; LEVEL 7 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
a*ERRVEC.-(SPl ;;SAVE ERROR VECTOR 
#64S,a*ERRVEC ;;SET UP ERROR VECTOR 
#DSWR,SWR :;SETUP FOR A HARDWARE SWICH REGISTER 
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B 2 



CZW9AE.P11 17-APR-79 


60«) 


001170 


012767 


610 


001176 


022777 


61 1 


00'i204 


001012 


612 






613 


001206 


000403 


6'<. 


001210 


012716 


615 


001214 


000002 


616 


001216 


012767 


617 


001224 


012767 


618 


001232 


012637 


b19 






620 


001236 


005067 


621 


001242 


1 32767 


622 


001250 


001403 


623 


001252 


012767 


624 


001260 




625 


001260 


026727 


626 


001266 


001402 


627 


001270 


104401 


628 


001272 


005276 


629 






630 


001274 


123727 


631 


001302 


001003 


632 


001304 


012767 


633 


001312 


017700 


634 


001316 


001424 


635 


001320 


0O6300 


636 


001322 


016067 


637 


001330 


016067 


638 


001336 


016067 


639 


001344 


016067 


640 


001352 


016067 


641 


001360 


016067 


642 


001366 


000450 


643 


001370 


005767 


644 


001374 


001045 


64*^ 


001376 


122767 


646 


001404 


001441 


647 


001406 


005767 


648 


001412 


001012 


649 


001414 


104401 


650 


001416 


005311 


651 


001420 


104407 


652 


001422 


012667 


653 


001426 


104401 


654 


001430 


005335 


655 


001432 


104407 


656 


001434 


012667 


657 


001440 


104401 


658 


001442 


005515 


659 


001444 


104407 


660 


001446 


012667 


661 


001452 


104401 


662 


001454 


005655 


663 


001456 


104407 


664 


001460 


012667 



10:12 




INITIALIZE THE 


COMMON TAGS 


\ 1 fjf\} 


1 77<.n/. 

1 f f OUh 




MOV 


irnn I CP dicpiav 


\ f f 1 f f 


1 77C 7/. 




CUP 


>f 1 , HOWn 








SNE 










BR 


65S 


001216 




64$: 


MOV 


*65$.{SP) 








RTI 




0001 76 


\ f tJJH 


65$: 


MOV 




UUU 1 ' H 






MOV 




UUUUUh 




66S: 


MOV 




1 77A.1 5 






CLR 




vUUcUU 


If f O 1 ' 




BIT8 


irAPT^I7F tFNVM 






BEQ 


67S 


001070 


177520 




MOV 


fSSUREG.SUR 






67$: 






1 76556 


002060 




CMP 


42,nENDAD 








BEQ 


RESTRT 








TYPE 










TITL 





SEO 0014 



;AND A HARDWARE DISPLAY REGISTER 
.TRY TO REFERENCE HARDWARE SUR 
.•BRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT = -1 
.•BRANCH IF NO TIMEOUT 
;SET UP FOR TRAP RETURN 

.-POINT TO SOFTWARE SWR 

.•RESTORE ERROR VECTOR 

.•CLEAR PASS COUNT 
;TEST USER SIZE UNDER A/>T 
; YES. USE NON-APT SWITCH 
;NO,USE APT SWITCH REGISTER 

;ACT AUTO MODE? 
;YIF SO: BR 



000176 000006 RESTRT: 



0001 76 1 77466 
177462 



004714 
004644 
004766 
005036 
005106 
005156 

176446 



177470 
1 77460 
177442 
177432 
177432 
1 '7422 



1$: 
ST2: 



GETIN: 



000001 177462 
177416 

177370 
177360 
177332 
M7122 



GET2: 



CMP8 

BNE 

MOV 

MOV 

BEO 

ASL 

MOV 

MOV 

MOV 

MOV 

nov 

MOV 
BP 

TST 

BNE 

CMP8 

BEQ 

TST 

BNE 

TYPE 

GETCRC 

RDOCT 

MOV 

TYPE 

GETLPC 

RDOCT 

MOV 

TYPE 

SAl 

RDOCT 

MOV 

TYPE 

SIZE! 

RDOCT 

MOV 



a«176,#6 
IS 

«SWREG.SWR 
aSWR.RO 
GETIN 
RO 

TXLPC(RO).EXLPC 
TXCRC(RO).EXCRC 
TDLN1 (RO) .DATLN1 
TRMSA1 (RO) .R0MSA1 
TDLN2(R0) ,DATLN2 
TRnSA2(RO),R0MSA2 
CHECK 
42 

CHECK 
#1,$ENV 

CHECK 

TYPOUT 

GET? 



(SP)».EXCRC 
(SP)*,EKLPC 
(SP)*.R0MSA1 
(SP)*.DATLN1 



IS SOFTWARE SWITCH REGISTER =6? 
IF NOT. TEST '^ORMALY 
IF SO USE THE SOFTWARE SWITCH REG 
GET SWR 

IF ZERO: GET INPUT 

FETCH EXPECT. LPC 
FETCH EXPECTED CRC 
FETCH 1ST LENGTH 
FETCH 1ST SMARTING ADDR. 

; FETCH 2ND LENGTH 
FETCH 2ND STARTING ADDR 
GO COHPUTE 

l#i©ER ACT /lUT ACCEPT? 

IF SO; BR USE DEFAULT PARAMETERS 

J«ER APT? 

IF SO: BR 

ROM TYPE C#»TION 

IF SO: BR 



; STORE EXFfCT. CRC 
;TYPE LPC INPUT REffJCST 



."STORE EXPECTED LPC 

.REQUEST 1ST ADDRESS SPACE 
.-INPUT s^ 

.•REQUEST LENGTH OF 1ST ADDR. SPACE 
.•INPUT LENGTH 
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r 
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INITIALIZE THE 


COMMON TAGS 


665 


00K64 


104401 








T VPE 




666 


00K66 


005575 








SA2 




66^ 


001A70 


104407 








RDOC r 


(SP)*,R0MSA2 


668 


001 A 72 


01 266' 


177312 






MOV 


669 


00U76 


104401 








TYPE 




670 


001500 


005735 








SIZE2 




671 


00 1 502 


104407 








RDOCT 


(SP-'*.DATLN2 


672 


001 50A 


012667 


177302 






MOV 


673 


001510 


005767 


177314 




CHECK: 


TST 


TYPOUT 


t?^ 


001 5U 


001402 








8EQ 


It 


675 


001516 


000167 


000660 






JMP 


TYPROM 


676 


001522 


005067 


1 7727^, 




1$: 


CLR 


ACTCRC 


677 


001526 


005067 


177272 






CLR 


ACTLPC 


678 


001532 


016700 


177250 






MOV 


DATLN1 .'^O 


679 


001536 


001413 








6EQ 


CHO 


680 


001 5A0 


016701 


1 77240 






MOV 


R0MSA1 . R1 


681 


001 5AA 


004 7o7 


000324 






JSR 


PCCRC 


682 


001550 


016^01 


1 77230 






MOV 


R0MSA1 ,R1 


683 


001 55A 


016700 


177226 






MOV 


DATLN1 ,R0 


68A 


001 560 


006200 








ASR 


RO 


685 


001562 


004767 


000556 






JSR 


PCLPC 


686 


001 566 


016701 


177216 




CHO: 


MOV 


R0MSA2.R1 


687 


001572 


016700 


177214 






MOV 


DATLN2,R0 


688 


001576 


001422 








BcQ 


CHI 


689 


001600 


00**767 


000270 






Jon 


PC,C«C 


690 


001604 


016701 


177200 






imt/ 
WuV 


R0MSA2.R1 


691 


001610 


016700 


177176 






Mr>i/ 

nOv 


DArLN2,R0 


692 


001614 


006200 








ASR 


RO 


693 


001616 


004767 


000522 






JSR 


PC.LPC 


69A 


001622 




000001 


177236 




CMP8 


#1,$ENV 


695 


001630 


001403 








BEO 


IS 


696 


001632 


005767 


176204 






TC T 


42 


697 


001636 


001 402 








BcQ 


CHI 




001640 


000167 


000656 




IS: 


JMP 


AUfACT 


699 


001644 


026767 


177146 


177150 


CHi : 


Cff 


EXCRC .ACTCRC 


700 


001652 


001431 








BcQ 


CM 


701 
702 


001654 


10440' 








TrPt 




703 


001656 


005361 








tXCRMC 




70A 


001660 


016746 


177132 






WDV 


fXCftC,-(SP) 


705 


X!664 


104402 








TrPOC 


706 


001666 


104401 








TVPt 




707 


001670 


005430 








ACCRWj 


ACTCRC, -v'SP) 


708 


001672 


016746 


17712^ 






MOV 


709 


001676 


104402 








TrPOC 




710 


001700 


026727 


176136 


002060 




CMP 


42,^ENDAD 


711 


001706 


001404 








BEO 


IS 


712 


001 710 


1 22767 


000001 


177150 




CMP8 


fl.SENV 


713 


001716 


001007 








BNE 


CKI 


714 


UUl fcV 


U \CfOf 


000002 


177122 




nuv 


#2.VATAL 


715 


001726 


012767 


000001 


177112 




MOV 


#1.IHSGTYP 


7'i6 


001734 


000000 








HALT 




717 
















718 


001736 


026767 


177062 


1 77054 


CK1: 


CMP 


ACT» PC,EXLPt 


719 


001744 


001431 








BEQ 


CK2 


720 


001746 


104401 








TVPf 





SEO 0015 

; RE CUE ST START ADDR. FOR 2ND SPAfE 
;INPU^ SA 

;REOUFST LENGTH Of 2ND SPACE 

.-INPUT LENGTH 

;IS TYPOUT REQUESTED? 
.EiRANCH IF NOT 
;G0 TYPE OUT POM 
.•CLEAR STORAGE FOR ACTUAL CRC 
.•CLEAR STORAGE FOR ACTULAL LPC 
;SET LENGTH OF 1ST ROM SPACE 
;IF NO VERSION SELECTED: BR 
;POINT TO START 0? 1ST ROM SPACE 
.•COMPUTE FIRST HALF CF CRC 
;POINT TO START OF 1ST ROM ADDRS. 
;SET LENGTH OF 1ST ROM ADDRS. 
.-CONVERT TO WORDS 
.•COMPUTE FIRST HALF Of CRC 
.•POINT TO 2ND ROM ADDRS. 
.•SET LENGTH OF 2ND ROM ADDRS. 
;BR IF THIS SPACE NOT USED 
.'COMPUTE REMAINDER OF CRC 
.•POINT TO START OF 2ND ROM ADDRS. 
.SET LENGTH OF 2ND ROM ADDRS. 
.CONVERT TO WORDS 
.•COMPUTE REMAINDER OF LPC 
.-UNDER APT? 
'IF SO: BR 

•UNDER ACT AUTO ACCEPT? 
;IF NOT: BR 

.'COMPUTED = EXPECTED ? 
;IF SO: BR 

.TYPE CRC ERROR HESG. 

;PUT EXPECT CRC ON STACK 
;TyPE EXPECTED CRC 
.-TYPE ACTUAL CRC MESSG 

;PUT ACTUAL CRC ON STACK 
;TYPE ACTUAL CRC 
.•UNDER ACT AUTO MODE? 
;IF SO: BR 
.-UNDER APT? 
- 1 F ftOl I BR 

•MOVE TO MAILBOX ERROR NO. •••• 2 •••• 
.SET MAILBOX FOR FATAL ERROR 
;CRC ERROR 

.-COMPARE EXPT. LPC=ACTUAL LPC 

;IF SO: BR 

.-TYPE LPC ERROR MESSG. 
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INITIALlZf THE 


7?1 

f C 1 


001 750 


00540A 








C wl OM^ 


7?? 


001 752 


016746 


177042 






MAVi 




001 756 


104402 








T WDAr 




001 760 


104401 








' VDL 

1 Trt 


f CJ 


001762 


005A53 








/(CLPTHj 


1 CO 


001 76^ 


016746 


177034 






110V 


7? 7 


001 770 


4 f\t i A^ 

104402 








1 YrOt 


7?8 
' CO 


OQt /^72 


026r2r 


1 76044 


002060 




r'MO 


7?Q 

r C 7 


002000 


/ A/ 

001404 




1 77056 




OCU 


r JV 


002002 


\2d7t>7 


000001 




cnro 




00201 0 


AAi r\r\~? 
001 OOr 








PXIC 

QNt 




002012 




000003 


177030 


1 > •* 






002020 


A-l 


000001 


177020 






7^4 


002026 


/\ AAA A A 

000000 








HAL 1 


73S 














7V> 


002030 


\jcbfcf 


1 76006 


002060 




7^7 


002056 


AA1 / AT 

001402 








Dtbl 


r JO 


002040 


1 /\/ / A1 

104401 








T VDC 

1 Trt 


7^9 




AAC/ 7/ 








CnTCT 


740 




00526 r 


1 77004 




1 c • 




741 


AAHAC A 


A"! T7AA 

015/^00 


000042 








74? 


AA^AC/ 


AA1 / AC 

001 405 








DC A 


743 


AA^AC^ 


AAAAAC 

000005 










744 


AA1AZ. A 

002060 


AA/ "71 A 

004rl0 






CCMf\Af\ • 


ICO 


74 S 


OO^Ooc 


AAAO/ A 

000240 








IMUf 


746 


00c0o4 


AAAO/ A 

000240 








MOD 
NUT' 


747 


002066 


AAA1/ A 

U00240 








nlUr" 


74R 


0020 /'U 


AAA1 iL7 

00016/^ 


1 77200 




(-nA<t TW • 
UUAU J ><■ • 


Jit' 


74Q 














7S0 


0020/^4 


\J\OfOf 


176722 


176712 




nuv 




AAOl A^ 

002102 


1111 A/ 

1 1 1 1 04 






LLO. 


nuvts 


7S? 

r JC 


002104 


A'D'D7A1 


1 73024 








7S3 


002110 


AA1 AA/ 

001004 








one 


7S4 


0021 12 


005 jUO 










7SS 

r J-/ 


0021 14 


AAC7AA 

005500 










756 


0021 16 


005 /^cl 








TCT 


7S7 


AA01 ^A 

002120 


A/V>77r4 

OUUf '0 








BP 


758 


002122 


AA/ 7^7 
\AJ*tfOf 


000114 




IL5: 


ICD 


759 


AA01 Oil 

002126 


AA/ 7^7 

0J4^6^ 


000166 






Jon 


760 


AAH TO 

0021 52 


AAAO/ 1 

000241 








ri r 

cut. 


761 


0021 5h 


006004 










76? 


AAT^ 1^ 

002 1 56 


1 ATA1 / 

105014 










763 


AA01 / A 

U02140 


052^04 


000400 






ore 
Bio 


764 


002144 


00024 1 








f\ r 


765 


AA01 / iC 

002146 


A1 A/ AC 

0 10405 








nuv 




AA01 CA 

0021 30 


A/ ■57AC 

042^05 


177703 






Bi L 


767 


0021 54 


AAC1 AC 

005105 










768 

r VO 


AAOi CJL 

002156 


A/ •D7AC 
U4cr05 


177703 








769 


002162 


A/ •57A/ 

04c^04 


000074 






oil 


770 


002166 


050504 








BIS 


77 y 


002170 


010467 


176620 




(l2: 


MOV 


772 


002174 


005300 








DEC 


773 


002176 


00K02 








BEO 


77t, 


002200 


000167 


177676 






JW» 


775 


0OP20A 


016704 


1 76604 




CLLAST; 


MOV 


776 


002210 


005167 


176600 






COM 



C 2 



COMMON TAGS 



EXLPC,-(SP/ 



ACTLPC.-( jP) 

42.#SEN0>>0 
IS 

#1 . $ENV 
CK? 

#3,$FAT4L 
fl.SMSG^YP 



42.4rSEN0A0 
IS 



$PASS 

»r42,no 

GOAGIN 
PC.CftO) 



RES TRT 

ACTCRCXORS 

(RI ) .R4 

#1 73624. RI 

CL3 

RO 

RO 

(RD* 
CLO 

PC, PARITY 
PCXOR 

R4 
CL2 

*400.R4 

R4,RS 

#1?7703.R5 
R5 

#1 77703. R5 
#74. R4 
R5.R4 
R4.X0RS 
RO 

CLLAST 
CLO 

X0RS.R4 
XORS 



ScO 0016 



PUT EXPFCTED LPC ON STACK 
TYPE EXPECTED LPC 
TYPE ACTUAL LPC MESSG. 

PUT ACTUAL LPC ON STACK 
TYPE ACTUAL LPC 
UNDER ACT AUTO MODE? 
IF SO: BR 
UNDER APT? 
IF NOT: BR 

MOVE TO MAILBOX ERROR NO. • 
SET MAILBOX FOR FATAL ERROR 
LPC ERROR 

ACT AUTO ACCEPT? 

IF SO: BR 

TVPE END OF TEST 

BlW PASS COUNT 
CHeCK APT 
KEEP GOING 

ACT HOOKS 



;D0 AGAIN 



GET CHAR 

LOCATIOn'eFFECTED BY SWITCHES 
IF NOT: BR 
FIX COMTERS 

FIX POINTER 
CONTINUE 
GO GET PARITY 
XOR CHAR 

ROTATE 1 PCS. RIGHT 
IF NO CARRY: BR 
SET BIT NINE 

SAVE CHAR 



;IF LAST CAR.: BR 
;GET NEXT CHAR. 
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CZfl9AE.Pn 17-APR-79 10:12 INITIALIZE THE COMWON TAGS 



E 2 



SEO 0017 



777 002?K 

778 002222 

779 002226 

780 00223? 

781 0022AO 

782 0C22A2 

783 002246 
78A 002252 
^85 002256 
-^86 002260 

787 002264 

788 002266 

789 002270 

790 002272 

791 00227^ 

792 002276 

793 002302 

794 002310 

795 002312 

796 002316 
797 

798 002320 

799 002322 

800 002326 

801 002332 

802 002336 

803 002342 
804 

805 002344 

806 002352 

807 002354 

808 002360 

809 002362 

810 002366 

81 1 002370 
81? 002372 
813 002400 
814 

815 002402 

816 002404 

817 002406 

818 002412 

819 002416 

820 00?420 

821 002422 

822 002426 

823 002432 

824 002436 

825 002440 

826 002442 

827 002446 

828 002450 
8?9 002452 
830 

gjl 002454 

832 002456 



042767 
042704 
050467 
016767 
000207 
005067 
012703 
032704 
001402 
005267 
000241 
006004 
0053C3 
001367 
112104 
042704 
032767 
001002 
052704 
000207 

010446 
046716 
040467 
052667 
016704 
000207 

016767 
012104 
022701 
001402 
004767 
005300 
001370 
016767 
C00207 



1 77050 
:77727 
176562 
1 76556 

1 76560 

000010 
000001 

176542 



1 77400 
000001 

000400 



1 76466 
1 76462 
176456 
176452 



176454 
1 73026 
1 7773;* 



1 765 '2 



176562 



176516 



176416 176424 





BIC 


#177050. XORS 




FJIC 


#1 77727, R4 




3IS 


R4.X0RS 




MOV 


XORS.ACTCRC 




RTS 


PC 


PARITY: 


CLR 


PARCNT 




MOV 


*10,R3 


CLPO: 


BIT 


#1,R4 




BEO 


CLP1 




INC 


PARCNT 


CLP1 : 


CLC 






ROR 


R4 




DEC 


R3 






ri DO 
LLrU 




MOVB 


(Rl)*-R4 




BIC 


#1 77400,R4 




BIT 


#1 , PARCNT 




BNE 


CLP2 




BIS 


#400,R4 


CLP? 


RTS 


PC 


XOR: 


MOV 


R4,-(SP) 




BIC 


XORS.(SP) 




BIC 


R4.X0RS 




BIS 


(SP) ♦.XORS 




MOV 


X0RS.R4 




RTS 


PC 


LP(: 


MOV 


ACTLPC.XORS 


LPC1; 


MOV 


(ft1)*-R4 


CMP 


*173026,R1 




BEO 


LPC2 




JSR 


PC. XOR 


LPC2: 


DEC 


RO 




BNE 


LPC1 




MOV 


XORS.ACTLPC 




RTS 


PC 



104401 




TYPROH: 


TYPE 




006023 






TYPHDR 




016700 


176';72 




MOV 


R0MSA1 .RO 


016701 


176570 




MOV 


DATLNI .RI 


006201 






ASR 


RI 


001402 






BEO 


TYPRl 


004767 


00f026 




JSR 


PC. TYP 


016700 


1^j356 


TVPR1 : 


MOV 


ROfnSA?.RO 


016701 


175354 




MOV 


DATLN2,R1 


006201 






ASR 


RI 


001402 






BEO 


ENDOT 


004767 


0f)0006 




JSR 


PC, TYP 


104401 




ENDOT : 


TYPE 




005476 






EOTST 




000000 






HALT 




104401 




TYP: 


TYPE 




006015 






CARLF 





.•COMPLEMENT ALL BUT BITS 3 8 5 



.•CLEAR BIT COUNTER 
;SET NO. OF BITS 
.-SEE IF ONE BIT 

;IF NOT: BR 
;8UMP COUNTER 

.•ROTATE TO NEXT BIT 

.•CONTINUE FOR ALL BITS 



;SEE IF ODD ♦ OF ONE BITS 
;IF SO: BR 
.SET PARITY BIT 
.■EXIT 

.-XOR SUBROUTINE- R4 WITH XORS 



.•LOCATION EFFECTED BY SWITCHES 
;IF SO: SKIP LOC. BY BRANCHING 



TYPE HEADER 

POINT OT 1ST ROM SPACE 
PUT LENGTH IN Rl 
CONTERT TO WORDS 

BRANCH IF 1ST ROM SPACE NOT USED 

GO TYPE 1ST ADDR. SPACE 

POINT TO 2ND ADDR. SPACE 

PUT LENGTH IN RI 

CONVERT TO WORDS 

8R IF ?ND ADDR. SPACE NOT USED 

GO TYPE ?ND ADDR. SPACE 



7M9AE 

835 
85^ 
835 
836 
837 

858 

839 

SAO 

8A1 

8A2 

8A5 

84A 

8A5 

8A6 

8A7 

8A8 

8A9 

850 

851 

852 

853 

85A 

855 

856 

857 

358 

859 

860 

861 

862 

863 

86A 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

887 

Sd^. 

885 

886 

887 

808 
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002A60 
002A62 
002466 
002470 
002472 
002474 
v')02476 
002500 
002502 
002504 
002506 
002510 
002512 
002514 
002516 
002520 
002522 
002524 
002530 
002536 
002540 
002546 
002550 
002556 
002560 
002566 
002570 
0025 7'2 
0026'.X) 
002606 

00261? 
002S14 
002616 
00;'624 
002632 



C02634 
002636 



000403 
032700 
001fX)6 
104401 
00601 5 
010046 
104402 
10^.401 
0C6060 
0''2046 
1 'J4402 
104401 
006020 
005301 
001 361 
000207 
005000 
062700 
026027 
001425 
026067 
001 366 
023727 
001405 
016067 
104401 
000000 
016067 
016067 
000167 

104401 
006064 
012767 
012767 
000000 



177560 
177562 



000003 



000002 
005226 

004644 

0000^2 

005226 



004644 
004714 
177124 



000001 
000001 



' 77777 
1 76254 
002060 
000002 



176216 
176212 



1 76224 
176214 







F 2 


1 4 PAGE 


19 




INITIALIZE THE 


COMMON TAGS 






TYP3 


T von • 


D t T 


0l.RO 




tJiMC 


UP2 


T vot • 


1 Trt 






rAOl ( 






Mn\/ 

nuv 


RO.-(SP) 




T vDnr 






T VDC 
1 TrC 










r vD3 • 
1 Jrc . 


nuv 


(RO)».-(SP) 




T vDnr 






T VDC 

1 TrC 






CPP 






VZ L 


RI 






TYPO 




DTC 


PC 




ri o 


RO 


A( IT 1 • 




*2,R0 






TMSG(R0).*-1 




oc w 


AUTERA 




rMP 


TXCRC(RO).ACTCRC 






Aun 










BEO 


Aurs 




MOV 


TMSGCRO) .AUT2 








AIlT? • 


0 




1 J > 




rxCftC(RO>,EXCRC 




nuv 


Twi Ar fof\\ Ctfi or 




JfP 


CKI 


AUTERft: 


TYPE 






AUTERM 






WV 






MOV 


#1 .IWSGTVP 




HALT 





SFO 0018 



.S8TTL TTV imjT ROUTINE 



.•ADDRESS MULTIPLE OF 4? 
;1F NOT: 8R 



;PUT ADDRESS ON STACK 
;TYPE ADDR. 



;PUT DATA ON STACK 
;TYP DATA 
;TyPE 2 SPACES 

.•FINISHED? 
;IF NOT: BR 
.•RETURN 

;8unP TALBE INDEX 

.'CHECKED ALL KNOWN VERSIONS^ 

'IF SO' BR 

;DOES THIS CRC AGREE? 

;IF NOT: KEEP LOOKING 

.'UNDER ACT AUTO ACCEPT? 

'IF SO ' BR 

•SET UP VERSION MESSAGE 



SET EXPECTED CRC 
SET EXPECTED LPC 
CHECK LPC 



MOVE TO MAILBOX ERROR NO. •••• 
SET MAILBOX FOR FATAL ERROR 
AUTO ACCEPT FAILED 



STKS: .WORD 

STK8: .WORD 

.ENASL LSe 

.DSA8L LS8 



177560 
177562 



;TTy IC8D STATUS 
TTV K8D BUFFER 



.'•THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
.'•CALL 



RDCHR 
RETURN HERE 



002640 C 11646 



SWDCHR: MOV 



(SP).-(SP) 



.'INPUT A SINGLE CHARACTER FROM ^mE 
.'CHARACTER IS ON THE STACK 
;WITH PARITY BIT STRIPPED OFF 



;;PUSH DOWN THE PC 



002642 


016666 


000004 

\r W W W W 


000002 


002650 


105777 


177760 




002654 


100375 






002656 


1 1 7766 


177754 


000004 


002664 


042766 


1 77600 


000004 


002672 


026627 


000004 


000023 


002700 


001013 






002702 


105777 


177726 




002706 


100375 






002710 


1 1 7746 


M7721 




002714 


042716 


1 77600 




002720 


022627 


000021 




002724 


001 366 






002726 


000750 






002730 


026627 


000004 


000140 


002736 


002407 




0001 75 


002740 


026627 


000004 


002746 


003003 






002750 


042766 


000040 


000004 


002756 


000002 
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889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

032 

933 

954 

935 

936 

937 

958 

939 

940 

941 

942 

945 

944 



10: 



14 
TTY 



1$: 



2$: 



PAGE 20 
INPUT ROUTINE 



G 2 



SfO 0019 



5$: 



4$: 



MOV 4(SP),2(SPJ 

rSTB aSTKS 

BPL 1$ 

Move a$TK8.4(SP) 

BIC #*C<177>.4(SP) 

CMP 4(SP).#25 

BNE 3$ 

TST8 aSTKS 

BPL 21 

M0V8 a$TKB.-(SP) 

BIC #*C177,(SP> 

CMP (SP)*,*21 

BNE 2$ 

BR IS 

CMP 4(SP).*140 

BLT 4$ 

CMP 4(SP).#175 

BGT 4$ 

BIC #40.4(SP) 

RTI 



;SAVE THE PS 

.•WAIT FOR 

;A CHARACTER 
;;READ THE TTY 
:;GET RID OF JUNK IF ANY 
:;IS IT A CONTROL-S? 
; .-BRANCH IF NO 
;;WAIT FOR A CHARACTER 
;;LOOP UNTIL ITS THERE 
;;GET CHARACTER 
;;MAKE IT 7-91 T ASCII 
;;IS IT A CONTROL-0? 
;;IF NOT DISCARD IT 
;;YES. RESlflE 
;;IS IT UPPER CASE? 
;;8RANCH IF YES 
;;IS IT A SPECIAL CHAR? 
; .-BRANCH IF YES 
;;WAKE IT UPPER CASE 
;;60 BACK TO USER 



•THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
*CALL: 

* RDLIN 

• RETURN HERE 



.-.■INPUT A STRING FROM THE TTY 

.-.■ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
.-.•TERMINATOR WILL BE A BYTE OF ALL O'S 



00276C 


010546 






SRDLIN: 


MOV 


R5.-(SP) 


002762 


005046 








CLR 


-(SP) 


002764 


012705 


0052'' 4 




1$: 


MOV 


#$TTYIN.R5 


002770 


022705 


005224 




2S: 


CMP 


#$TTYIN*8. 


002774 


101456 








BLOS 


4S 


002776 


104405 








RDCHR 


<SP)».fR3) 
f177.<«3) 


003000 


112615 








M0V8 


005002 


122715 


0001 77 




10$: 


CMP8 


005006 


001022 








BNE 


5S 


005010 


005716 








TST 


(SP) 


005012 


001007 








BNE 


6S 

*'\,9$ 


005014 


112767 


000154 


000170 




M0V8 


005022 


104401 


005212 






TYPE 


.9$ 


005026 


012716 


M7777 






MOV 


#-1.(SP> 


003032 


005505 






6$: 


DEC 


R5 


003054 


020527 


005214 






CMP 


R3.#$TryiN 


003040 


105434 








BLO 


4S 


003042 


111567 


000144 






M0V8 


(R3>.9$ 


003046 


104401 


005212 






TYPE 




003052 


000746 








BR 


003054 


005716 






5$: 


rsT 


(SP) 


005056 


001406 








BEO 


7$ 

#'\.9$ 


003060 


112767 


000154 


000124 




M0V8 


005066 


104401 


005212 






TYPE 


,9$ 


005072 


005016 








CLR 


(SP) 


005074 


122715 


000025 




7$: 


CMP8 


#25. (R3) 


005100 


001005 








BNE 


8S 


005102 


104401 


005250 






TYPE 


,$CNTLU 


005106 


000726 








BR 



- - SAVE R3 

;; CLEAR THE RU80UT KEY 
.-.-GET ADDRESS 
.-.-SUFFER FULL? 
' 'BR IF YES 

;;G0 READ 0^€ CHARACTER FROM THE TTy 
;;6£T CHARACTER 
;;IS IT A RU80UT 
;;8R IF NO 

;.-IS THIS THE FIRS' RU30UT? 

;;8R IF NO 

;;TYPE A BACK SlASH 

;;S£T THE RUBOUT K?Y 
;; BACKUP BY ONE 
; .-STACK EMPTY? 

••SETUP TO TYPEOUT THE DELETED CHAR. 
;;G0 TYPE 

;;G0 READ ANOTHER CHAR. 
;. -RUBOUT KEY SET? 
;;8R IF NO 
.-.-TYPE A BACK SLASH 

;; CLEAR THE RUBOUT KEY 
;;IS CHARACTER A CTRL U? 
.•;8R IF NO 

;;TyPE A CONTROL "U" 
;;G0 START OVER 



.MAIN. 
CZW9AE 

9^5 
9^6 
9i*7 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 

988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
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003110 
003114 
003116 
003120 
003124 
003130 
003132 
003136 
003140 
003144 
003150 
003154 
0031 36 
003162 
003166 
003170 
0031 72 
003174 
003202 
003210 
003212 
003213 
003214 
003224 
003225 
003226 
003230 
003235 
003242 
003250 
003253 
003260 



003264 
003266 
003274 
003276 
003300 
003302 
003304 
003306 
003312 
003314 



122715 
001011 
105013 
104401 
104401 
000717 
104401 
000712 
111367 
104401 
122723 
001305 
105063 
104401 
005726 
012603 
011646 
016666 
012766 
000002 
000 
000 
000010 
077 
015 
000012 
052536 
136 
00501 5 
020075 
040 
036440 



000022 



003225 
003214 

003224 

000046 
003212 
000015 

177777 

003226 



000004 
003214 



00501 5 
006507 
053523 
000 
047040 
000040 



011646 

016666 000004 

010046 

010146 

010246 

104406 

012600 

010067 000100 

005001 

005002 



000002 
000004 



000 
000012 
020122 



000002 



14 
TTY 

8$: 
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INPUT ROUTINE 



H 2 



'-fO 0020 



4$: 
1%: 



9$: 

STTVIN: 

SOUES: 

$CRLF : 

$LF: 

SCNTLU: 

SCNTLG; 

SMSUR: 



CMPB 
BNE 
CLR8 
TYPE 

typ: 

BR 

TYPE 
BR 

M0V8 

TYPE 

CMP8 

BNE 

CLRQ 

TYPE 

TST 

MOV 

P10V 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BLK8 

.ASCII 

.ASCII 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



#22. (R3) 

3S 

{R3) 

.SCRLF 

.STTYJN 

.SQUES 
^$ 

(R3).9$ 
.9$ 

#15.(R3)» 
2S 

-1 (R3) 

.$LF 

vSPM 

(SP)*.R3 

(SP).-(SP) 

4(SP).2(SP) 

#$TTVIN.4{SP) 



;;JS CHARACTER A "*R"^ 
..•BRANCH IF NO 
;; CLEAR THE CHARACTFR 
;;TYPE A "CR" t "Lf" 
;;rYPE THE INPUT STRING 
;;G0 PICKUP ANOTHER CHAfTfR 
;;TYPE A 

;; CLEAR THE BIJFFER AND LOOP 
;;ECHO THE CHARACTER 

;; CHECK FOR RETURN 

;;L0OP IF NOT RETURN 

;; CLEAR RETURN (THE 15) 

;;TYPE A LINE FEED 

;; CLEAN RU80UT KEY FROM THE STACK 

' 'RESTORE R3 

;; ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 



' * RE TURN 

••STORAGE FOR ASCII CHAR, tq TYPE 
.-.•TERMINATOR 

;;RESERVE 8 BYTES FOR TTV I^^T 
:; QUESTION MARK 
.•CARRIAGE RETURN 
;;LINE FEED 
/•U/<15><12> ;; CONTROL 'V 
/•6/<15><12> ;;C0NTROL •'Q" 
<15><12>/SUR = / 



0 
0 
8. 

<i5> 

<12> 



053505 SMNEW: .ASCIZ / NEW - / 

.S8TTL READ AN OCTAL NUMBER FROM THE TTY 



•THIS ROUTINt Will READ AN OCTAL (ASCII) MfOER FROM THE TTY AND 
•CHANGE IT TO BINARY. 

•THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
•OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A 'T* WILL BE TYPED 
•FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NLfBER MUST 
•THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 

•CALL: 

* RDOCT 

• RETURN HERE 



;;READ AN OCTAL NUMBER 
;;LOW ORDER BJTS ARE ON TOP OF THE S^ACK 
;;HIGH ORDER BITS ARE IN SHIOCT 



tRDOCT: MOV (SPK-(3P) ; .-PROVIDE SPACE FOR THE 

MOV 4CSp5.2(SP) ;; INPUT NUMBER 

MOV RO.-(SP) .-.-PUSH RO ON STACK 

MOV RI.-(SP) .-.-PUSH R1 ON STACK 

MOV R2.-(SP) .-.-PUSH R2 ON STACK 

IS: RDLIN ;;READ AN ASCIZ LINE 

MOV {SP)*.RO .-.GET ADDRESS OF 1ST CHARACTER 

MOV R0.5$ .-.-AND SAVE IT 

CLR R1 ;; CLEAR DATA WORD 

CLR R2 
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;U PAGE 22 
READ AN OCTAL 



I 2 

Nll«ER FROM THE TTr 



SEO 0021 



1001 


003316 


1 1 2046 




1002 


003320 


001 4?0 




1003 


003322 


122/^16 


AAAAZ. A 

000060 


100A 


003326 


/N/N^/NTZ 

003026 




1005 


/\/\^ 7 7/\ 

003330 


122716 


AAAAZ 7 

000067 


1006 


00333A 


0024?3 




1007 


A/NT 

003336 


/NAZ 1Al 

006 3U1 




1008 


0033A0 


AA^ 1 AO 

00610? 




1009 


0033*1? 


rtAA 1A1 

006 3U1 




1010 


/N/N 7 7 y / 

0035AA 


AAZ 1 AT 

006102 




101 1 


/N/N"T7y Z 

0035A6 


AAZ 7A1 

006301 




1012 


003350 


AA^ 1 A O 

00610? 




101 3 


AA7 ICI 

00335? 


Ay 071 ^ 
04?/^ IC 


1 7777A 
\ffff\) 




003356 


A^ OZ.A1 

06r6Ul 






AA'ITZ.A 

003360 


AAA7CiL 




1016 


AAITX-O 

UU350? 


AAC 70iL 

UU5 r ?o 




101 r 


00556*» 


A1 A1 

U1U166 


AAAA1 0 
UUUUl ? 


lOlo 


AA'7'77A 


A1 AO*.? 
U1U?0' 


AAAA0<» 


1 A1 Q 


AA717/ 


A1 OAAO 

U1 ?oU? 






AA'777X. 


A1 0< A1 




lUt: 1 


AAly AA 


A1 OAnn 




\\JCC 


AATy no 


Ariri/-vr>0 
UUUUUt 






AAT/ A/ 


UU J 1 CO 




1 AO/ 








1 

1 yjcj 


n/^T/ 1A 
UUjm I U 


1 n/ Am 






nn7/ 1 5 
UUjm I c 


nnnr>nn 

UUUvUU 














AATyOA 


nnn77n 








uuvyU'JU 




1U3U 








1 All 
























1 Azy 








1 J5j 








lUX) 
















1 A1B 








■1 AIQ 








T Ay A 








1 Ay 1 








"1 A/ O 








1 Ay 7 
ltK»3 








1 Ay y 
















■1 A/ iL 








1 Ay 7 


AATy 0/ 
UU3*»?»i 


1 n^7A7 
lUJfOf 




■1 Ay o 




1 nA/v\o 








\A/Vvvv 




1050 


003A34 


000430 




1051 


003436 


010046 




1052 


003440 


017600 


000002 


1053 


003444 


T 22767 


000001 


105A 


003452 


001011 




1055 


003454 


132767 


000100 


1056 


003462 


001405 





2t: 



3$: 



5$: 



SHIOCT; 
.S8TTL 



M0V8 (RO)».-(SP; 

BEQ 3S 

CMPQ *'0.(SP) 

BGT 4$ 

CMP8 #'7,(SP) 

BLT 4$ 

ASL R1 

ROL R2 

ASL Rl 

ROL R2 

ASL Rl 

ROL R2 

BJC #*C7.(SP) 

ADD (SP)*,R1 

BR 2$ 

TST (SP)* 

MOV R1.12(SP> 

MOV R?. SHIOCT 

MOV (SP)*.fi2 

MOV (SP)*.R1 

MOV (SP)*,RO 

RT] 

TST (SP)* 

CLRB (RO) 
TYPE 

.WORD 0 

TYPE ,foues 

BR IS 

.WORD 0 
rrPE ROUTINE 



; .-PICKUP THIS CHARACTER 
;;1F ZERO GET OUT 
;;MAKE SURE THIS CHARACTER 
;;IS AN OCTAL DIGIT 



; ; '2 
;;*8 

;; STRIP THE ASCII JUNK 
;;AOD IN THIS DIGIT 

;;L00P 

;; CLEAN TER«IHATOfl FROM STACK 
..'SAVE THE RESULT 

;;P0P STACK INTO R2 
;;P0P STACK INTO Rl 
;;POP STACK INTO RO 
. TURN 

••CLEAN PARTIAL FROM STACK 

;;SET A TERMINATOR 

;;TYPE UP THRU THE SAD CHAR. 

;;'r' "CR" ft "VF" 
.•;TRy AGAIN 

;;HJGH ORDER BITS GO HERE 



.■•ROUTINE TO TYPE ASC IZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BY lE. 
.••THE ROUTINE WILL INSERT A NLMBER OF NULL CHARACTERS AFTER A LINE FEED. 



»N0TE1 
.••N0TE2 
; -NOTES 



;*CALL: 
;*1) USING A 
TYPE 
.••OR 

TYPE 
; • MESADR 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SflLLS CONTAINS THE Nlf«ER Of FILLER CHARACTERS REQUIRED. 
SflLLC CONTAINS THE CHARACTER TO FILL AFTER. 



STVPE: 



1$: 



175414 
175405 



TST8 

BPL 

HALT 

BR 

MOV 

MOV 

CMP8 

BNE 

BJT8 

BEQ 



TRAP INSTRUCTION 
.MESADR 



STPFLG 
IS 

3S 

RO. -(SP) 
a2(SP),R0 
#APTENV,SENV 
62S 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



;;IS THERE A TERMINAL? 
• '8R IF YES 

••HALT HERE IF NO TERMINAL 

.-.•LEAVE 

• 'SAVE RO 

••GET ADDRESS OF ASCIZ STRING 
; .-RUNNING IN APT MODE 
;;N0.60 CHECK FOR APT CONSOLE 



*APTSP00L,$ENVM ;. -SPOOL MESSAGE TO APT 



62S 



;;NO.GO CHECK FOR CONSOLE 
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ninnA7 

U 1 UUO r 








1 lU V 


1 VjO 






oon?7n 






J on 


1 n^o 












UORD 


i(V>n 

1 VJDU 




1 32767 


noooto 




f>?$ • 


w i 1 w 


1(V.1 


007'; 


UU 1 KJKJj 
1 1 ?0^^ 










' vOt 


007 S OA 






?t- 






noxsio 


001 oos 

\J\J 1 \J\JJ 








RNF 














TST 




oo7';i^ 


01 P^OO 






60t- 


MOV 

1 IV / 


1 uoo 


\J\JDJ 1 U 


0AP71 A 
\JOC 1 1 o 


00000? 




3*' 


ADR 


"I DA? 


007S?? 


OOOOOP 

\J\J\/\J\JC 
Ice 1 0 








RT I 

n 1 i 


1fV^R 
1 \JOO 


003524 


00001 1 








1 \J\J7 


n07S70 


001470 

\J\J 1 "* JV/ 








REQ 


in7n 




1??71f> 


oon?oo 








1071 

}\J 1 1 


\J\Jj J -JKJ 


00100^ 








BNE 


107? 


007540 


005726 








TST 


1073 


00354? 


1 04401 








TYPE 


1074 


003544 


003225 








SCRLF 


1075 


003546 

00355? 


105067 


000130 






CLRB 




000755 








BR 


1077 


003554 




000056 




5$. 


JSR 


10^8 


003560 


1 26726 


000130 




6S: 


CMP6 


1079 


0035£>4 


001 350 








BNE 


1080 


003566 


016746 


0001 20 

V W 1 V 






nov 


1081 














108? 


00357? 


105366 


000001 

wwvv • 




7$: 


DECS 


1083 


003576 


002770 








BLT 


1084 


003600 


004767 


000032 

WW 






JSR 


1085 


003604 


105367 


000072 

WW ' c 






DECB 


1086 


003610 


000770 








BR 


1087 














1088 










.■HORIZONTAL TAt 


1089 














1090 


00361? 


112716 


000040 

V VV V^ V 




8S: 


nov8 


1091 


003616 


004767 


000014 

WW ' ~ 




9$: 


JSR 


109? 


0036?? 


132767 


000007 

W W V * 


000052 

WW J d 




BITS 


1093 


003630 

W 


001372 








BNE 


1094 


003632 


005726 








TST 


1095 


003634 


000724 








BR 


1096 


003636 


105777 


000044 

V w v~~ 




tTYPEC: 


TSTB 


1097 


003642 


100375 








8PL 


1098 


003644 


116677 


000002 

VW vvc. 


000036 

W W JV 




M0V8 


1099 


003652 


1 22766 


000015 

VWV 1 J 


000002 

W W V t 




C«P8 


1100 


003660 


001003 

\J\J 1 








BNE 


1101 


003662 


105067 


000014 






CLR8 


110? 


003666 


000406 








BR 


1103 


003670 


122766 


000012 

www I w 


000002 

WW Wb 


1$: 


C«P6 


1104 


003676 


001402 








BEO 


1105 


003700 


105227 








INCB 


1106 


003702 


000000 






$CHARCNT:.yORO 


1107 


003704 


000207 






fTYPEX: 


RTS 


1108 














1109 


003706 








$TPS: 


.WORD 


1110 


003710 


1 77566 






$TP8: 


.WORD 


nil 


003712 


000 






SNULL : 


.BYTE 


1112 


003713 


002 






SFILLS: 


.BYTE 



J 2 

SEO 0022 



R0,61$ ; .-SETUP MESSAGE ADDRESS FOR APT 

PC.$ATY3 ;; SPOOL MESSAGE TO APT 

0 : .MESSAGE ADDRESS 
#APTCSUP.$ENVM ;;APT CONSOLE SUPPRESSED 

60$ ;; YES, SKIP TYPE OUT 

(RO)+.-(SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 

4$ ;;i3R IF IT ISN'T THE TERMINATOR 

(SP)+ ;;IF TERMINATE POP IT OFF THF STACK 

(SP)+.RO ;. -RESTORE RO 

#2,(SP) ; .-ADJUST RETURN PC 
.-.-RETURN 

#HT.(SP) ;;8RANCH IF <HT> 
8$ 

#CRLF,(SP) ; .-BRANCH IF NOT <CRtF> 
5$ 

(SP)* .-.-POP <CR><LF> EOUIV 
;;TyPE A CR AND LF 

$CHARCNT .-.-CLEAR CHARACTER COUNT 

2$ ;;GET NEXT CHARACTER 

PC.STYPEC ;;G0 TYPE THIS CHARACTER 

$PILLC.(SP;» ;;IS IT TIME FOR FILLER CHARS.? 

2^ ;;|F NO GO GET NEXT CHAR. 

$NULL.-<SP) ;.-6ET 0 OF FILLER CHARS. NEEDED 

;;ANO THE NULL CHAR. 

KSPJ ;;DOES A NULL ►«ED TO BE TYPED? 

6$ .-;8R IF N0~60 POP THE NULL OFF OF STACK 

PC.STYPEC .-.GO TYPE A NULL 

SCHARCNT :;00 NOT COUNT AS A COUNT 

7$ ;;LOOP 

PROCESSOR 

»• .(SP) ; .-REPLACE TAB WITH SPACE 

PC.STYPEC ;;TYP£ A SPACE 

#7. SCHARCNT ;;8RANCH IF NOT AT 

9S ;;TAB STOP 

(SP)* ;;POP SPACE OFF STACK 

2S ;;GET NEXT CHARACTER 

iSTPS ;;WA|T IfJTiL PRINTER IS READY 

STYPEC 

2(SP).a$TP8 ;;LOAD CHAR TO BE TYPED INTO DATA REG. 

#CR.2(SP> ;;IS CHARACTER A CARRIAGE RETURN? 

IS .-.-BRANCH If NO 

SCHARCNT ;; YES— CLEAR CHARACTER COUNT 

STYPEX ;;EXIT 

#LF.2(SP) ;;IS CHARACTER A LINE FEED? 

STYPEX .-.-BRANCH If YES 

(PC)* .-.COUNT THE CHARACTER 

0 .-.-CHARACTER COUNT STORAGE 

PC 

177564 ;;TTY PRINTER STATUS REG. ADDRESS 

177566 .-;TTY PRINTER BUFFER REG. ADDRESS 

0 ;; CONTAINS NULL CHARACTER FOR FILLS 

2 .-.CONTAINS # OF FILLER CHARACTERS REQUIRED 
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1 1 J 




ni p 






CP I M r • 

9r i LL L • 


RVTF 
• Or 1 C 


1 1 *♦ 










9 1 r r L v# • 


AYTF 

• Of 1 c 


11^ 
1 1 A 












APT rr 


1 1 0 

117 

1 1 r 










* * 




1 1 a 

1 1 o 




1 1 P7^\7 
1 1 c ' Of 


nnnoni 


noopx6 

v/UwC JO 




1 1 Q 


UVJf c*» 


1 1 P7A7 

1 1 C ' Of 


UUvv/w 1 


OOOPPA 




MOVR 


1 ?n 


nnx7XP 

Uvjf JC 


000^ OX 








RR 
on 


1 PI 


nnx7X4 


1 1 P7A7 
1 1 c ' Of 


000001 


OOOPPO 


tATY4 • 


MOVR 


1 














1 PX 


nnx74P 

UUjf He 


01 004 








MOV 


1 p^ 


nnx744 


010146 
Vf 1 V 1 HO 








MOV 


ip«; 


\J\Jjl HO 


1057f>7 


000P06 






TSTB 


1 p^> 

1 CD 


fW1X75P 


001450 








DC W 


1P7 


00X754 


IP? 767 


000001 


1 75104 

1 f J 1 W"t 




CMPfi 


ipfi 

1 CO 


00X7AP 


0010X1 








RNF 


1 CT 


00X764 


1 X2767 

1 JC r U r 


000100 

VW I w 


175075 

1 f JWf J 




BI TR 




00X77? 


001 4?5 








OC w 


1 XI 


00X774 


01 7A00 


000004 






MOV 


1 XP 

1 JC 


004000 


0A?7f>A 


00000? 


000004 

wwwww*t 




ADD 


1 XX 


00400/=> 


005767 


1 75034 

1 f -/WJ"t 




It' 


TST 


1 XA 


00401? 


001375 








BNE 

vC 


1X5 


004014 


010067 


17504? 






MOV 


1X^ 


004020 


1057P0 






2S: 

C * • 


TSTB 


1X7 


0040?? 


001 X76 








BNE 


1X8 


004 0?4 


1 66700 


1 75032 






SUB 


1X9 


0040X0 


006P00 








ASR 


140 


0040X? 


010067 


1 750?6 






MOV 


141 


0040X6 


01P767 


000004 

WWV^ 


175002 

1 • ^WWC 




MOV 


14? 


004044 


000413 








BR 


14X 


004046 


017667 


000004 

WWW" 


000016 

www I w 


3S: 


MOV 


144 


004054 


06? 766 


000002 

wwwwwc 


000004 

w w w w w ^ 




ADD 


145 


00406? 


01 6746 


173710 

I ■ J» 1 W 






MOV 


14<^ 


004066 


004767 


1 77332 

Iff J JC 






JSR 

^ •#f« 


147 


00407? 


000000 

www 






4S- 


WORD 

• "fW»«l' 


148 


004074 












149 


004074 


105767 

1 V/ J f u* 


00006? 

WWWwC 




10S- 

1 w^ • 


TSTB 


150 


004100 


001416 








BEO 


151 


00410? 


005767 


174760 






TST 


15P 


004106 


001413 

W 1 "T 1 J 








BEO 

OL W 


15X 


004110 


005767 


174732 

1 f ^ f JC 




lis- 


TST 


154 


004114 


001375 

V/ w 1 J f J 










155 


004116 


01 7667 


000004 

wwww~ 


174724 




MOV 

< IWV 


15A 


0041 ?4 


06? 766 


00000? 

W WWWWC 


000004 




ADD 


157 


004132 

1 JC 


005267 


174710 

p r T r 1 w 






INC 


158 


004136 

1 JU 


105067 


OOOOPO 

WWWWC w 




12$- 

1 C V • 


CLRB 


159 


00414? 


105067 

1 V J w r 


000013 

WWWW 1 J 






C RB 


160 


004146 


105067 


000006 

WWWWWvJ 






CLRB 


161 


004152 


012601 








MOV 


162 


004154 


012600 








MOV 


163 


004156 


000207 








RTS 


164 


004160 


000 






$«FLG: 


.8YTE 


165 


004161 


000 






ILFLG: 


.BYTE 


166 


004162 


000 






tFFLG: 


BYTE 


167 




00A164 








• EVEN 


168 




000200 






APTSIZE 


=200 



K 2 



12 .-.-INSERT FILL CHARS. AF1ER A 'IINE FEED" 

0 ;;"TERMINAL AVAILABLE" FLAG (81 T<07>rO=yES) 

1UNI CATIONS ROUTINE 



SEO 0023 



#1,$FFLG 
#1 .SMFLG 
SATYC 
*1.$FFLG 

RO,-(SP) 
RI.-(SP) 
SMFLG 
55 

#APTENV.$ENV 
3$ 

#APTSP00L.$ENVM 
3$ 

a4(SP),R0 
#2.4(SP) 
SMSGTYPE 
1$ 

RO.SMSGAD 

(RO)* 

2$ 

SMSGAD.RO 

RO 

R0.SMS6LGT 

#4.SMSGTyPE 

5S 

a4(SP}.4S 

4f2.4(SP) 

177776,-(SP) 

PC,$TYP£ 

0 

$FFL6 
12$ 
$ENV 
12$ 

$MSGTyPE 
11$ 

d4(SP).$FATAL 

#2.4(SP) 

$MS6TYPE 

$FfL6 

$LfLG 

$MFLG 

(SP)*.R1 

(SP)*.RO 

PC 

0 

0 

c 



;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL ERROR 

;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;; SHOULD TYPE A MESSAGE? 

;;IF NOT: BR 

; .-OPERATING UNDER APT? 

;;1F NOT: BR 

; .-SHOULD SPOOL MESSAGES? 

;;If NOT: BR 

;:GET MESSAGE AODR. 

;;Blf1P RETURN ADDR. 
;;SEE IF DONE W/ LAST XMJSSION' 
;;IF NOT: WAIT 
;;PUT ADDR IN MAILBOX 
:;FIND END OF MESSAGE 

;:SUB START OF MESSAGE 
;;6ET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;:T£LL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LIIMKAGE 
;;8tMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
;;CALL TVPE MACRO 



SHOULD REPORT FATAL ERROR? 
IF NOT: BR 
Rt»MING UNDER APT? 
IF NOT ' BR 

FINISHED LAST MESSAGE? 
IF NOT: WAIT 
GET ERROR « 

;;8l/V> RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL UAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 
MESSG. FLAG 
LOG FLAG 
FATAL FLAG 



.»1AIN. MACY11 30A(1052) 17-APR-79 
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1169 

1170 

1171 

1172 

1175 

117A 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

120? 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

12U 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1322 

1223 

1224 



004164 
004170 
004176 
004202 
004206 
004210 
004216 
004224 
004232 
004234 
004236 
004240 
004244 
004246 
004252 
004256 
004262 
004266 
004270 
004272 
004274 
004276 
004300 
004302 
004304 
004306 
004312 
004314 



000001 
000100 
000040 
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AFT COMMUNICATIONS ROUTINE 

APTENV=001 

APTSPOOL=100 

APTCSUP=040 

.S8TTL BINARV TO OCTAL (ASCII) AND TYPE 



SEO 0024 



•THIS ROUTINE IS USED TO CHANGE A 16-eir BINARY NUMBER TO A 6-DIGn 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND N'MBER OF DIGITS 10 TVPt 

•CALL: 

NUMBER TO BE TYPED 
CALL FOR TYPE OUT 

N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M=1 OR 0 

;;1rTYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 



MOV 
TYPOS 
.BYTE 
.BYTE 



NUM,-(SP) 

N 
M 



•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR ITYPOC 
•CALL. 

• MOV Nlfl.-(SP) ;;Nl#BER TO BE TYPED 

TVPON ;;CALL fOif» TVPEOUT 

•STYPOC ENTER HERE FOR TVPEOUT OF A 16 BIT NIMBER 

CALL; 









• • 


MOV 


Nl^,-(SP) 


;;Nl«ER TO BE TYPED 










TYPOC 




;;CALL FOR lYPEOUT 


017646 


000000 




STYFOS: 


MOV 


a(SP).-(SP) 


;;PJCKUP THE MODE 


116667 


000001 


00021 1 




M0V8 


1(SP),S0FILl 


;;LOAP ZERO FILL SWITCH 


112667 


000207 






MOVB 


(SP)*.$0M0DE*1 


;;Nl«R OF 03 GITS TO TYPE 


062716 


000002 






ADD 


#2.<SP) 


.-.-ADJUST RETURN ADDRESS 


000406 








BR 


STYPON 




112767 


000001 


000171 


STYPOC: 


M0V8 


#1.S0fILL 


;;SET THE ZERO FILL SWITCH 


112767 


000006 


000165 




Move 


#6.$0M0DE*1 


;;SET FOR SIX(6> DIGITS 


112767 


000005 


0001 54 


STYPON: 


M0V8 


f5,$0CNT 


;;SET THE ITERATION COfiT 


010346 








MOV 


R3.-(SP) 


;;SAVE R3 


010446 








MOV 


R4, -(SP) 


;.-SAVE R4 


010546 








MOV 


R5,-(SP) 


* 'SAVE R5 


116704 


000145 






MOVB 


S0M00E*1,R4 


••GET THE Nl«BER OF DIGITS TO TYPE 


005404 








NEG 


R4 




062704 


000006 






ADD 


#6,R4 


.'.-SUBTRACT IT FOR MAX. Ai LOWED 


110467 


000132 






MOVB 


R4.SQM0DE 


.-.-SAVE IT FOR USE 


116704 


000125 






MOVB 


S0FILL,R4 


;;6Cr THE ZERO FILL SWITCH 


016605 


000012 






MOV 


12(SP).R5 


; .-PICKUP THE INPUi NUMBER 


005003 








CLR 


R3 


.-.CLEAR THE OUTPUT WORD 


006105 






1$: 


ROL 


R5 


; .-ROTATE MSB INTO f 


000404 








BR 


3$ 


;;G0 DO MSB 


006105 






2S: 


ROL 


R5 


;;F0RM THIS DIGIT 


006105 








ROL 


R5 




006105 








ROL 


R5 




010503 








MOV 


R5.R3 




006103 






3t: 


ROL 


R3 


.-.GET LS8 OF THIS DIGIT 


105367 


000076 






DECS 


SOMODE 


;;TYPE THIS DIGIT? 


100016 








BPL 


7$ 


;;8R IF NO 


042703 


177770 






BIC 


*1 77770. R5 


:;GET RID OF JUNK 





f*lACYl1 


30A(1052) 17-APR-79 10 


:14 PAGE 26 


M 


2 






CZM9AE.P11 17-APR-79 


10:12 




BINARY 


TO OCTAL 


(ASCII) AND 


TYPE 




SEO 0025 




00*»3cO 


AA1 AAO 

00 1 OOc 








BNE 


4S 




.•TEST FOR 0 




\cct 


r\r\y 7t3 


AAC 7A/ 
003/04 








TST 


R4 




.•SUPPRESS THIS J? 




Mil 


r\r\f 70/ 


AA1 / A7 

OU 1 mU J 








BEQ 


5$ 




;8R If YES 




1 ceo 


UU*»3cD 


AAC 3/V 






4S: 


INC 


R4 




.DON'T SUPPRES'- ANYMORE O'S 




1 ccr* 


AA/ 77A 


AC 37A7 
03C/05 


000060 






BIS 


#'0,R3 




.MAKE THIS DIGIT ASCII 






A/V/ 77/ 
00»lj>» 


AC 37A7 

Ojc/03 


000040 




5$: 


BIS 


#• .R3 




.•MAKE ASCII \f NOT ALREADY 






A/V 7/ n 


1 1 A7A7 

1 1030/ 


000040 






MOVB 


R3.SS 




.•SAVE FOR TYP.NG 




1 on 


AA/ 7// 

U0*» J*»M 


1 A/ / ^\^ 


004404 






TYPE 


«8S 




;G0 TYPE THI' DIGIT 




icr53 




IUj36/ 


000032 




7$: 


DECS 


iOCNT 




; COUNT BY 1 




1 


A/V 7^A 
UUm JJM 


AA77/.7 
UU33M/ 








BGT 


2S 




;8R If MORE TO DO 




1 "57^ 

1 ilJJ 


A/V 7^/^ 


AA3/ A3 

OUcmUc 








BLT 


6S 




;8R IF DON' 




1 "DTA 


A/V 7AA 


AAC 3 A/ 
UUjcUm 








INC 


R4 




.'INSURE L^>T DIGIT ISN'T A BLANK 




1 377 
1 Cbl 


UUm JOC 


UUU/mm 








BR 


2S 




;G0 DO TH. LAST DIGIT 




1 37fl 

1 C JO 


(W7AZ. 
UUm jOm 


U 1 COU3 






6S: 


MOV 


(SP)*.R5 




.RESTORE A5 




1 57Q 




m 3 An/. 

J 1 COUm 








MOV 


(SPW,R4 




.RESTORE, R4 




1 5Z.n 

1 «:hU 


A/V 77n 
UUm j/U 


ni 3An7 

U 1 COU J 








MOV 


(SP)*,R3 




.RESTORE R3 




1 CM 1 


Uvr» j/ C 


ni AAAA 

U 1 oooo 


000002 


000004 




MOV 


2<5P>. 4(SP) 




.'SET T>-/; STACK FOR RETURNING 




13/5 

1 CMC 


A/V.Z. AA 
UUmmUU 


ni 3A1 A 

u 1 CO 1 o 








MOV 


(SP)*,{SP) 




/ 




1243 


0OAA02 


000002 








RTI 




.-REiUT/'M 




\ Cmm 


UUmmU*» 


nnn 

UUv 






8$: 


.BYTE 


0 




; STORAGE FOR ASCII DIGIT 




1 Cm J 


A/u.z.n"? 

UUmmU3 


nnn 








.BYTE 


c 




: TERf^tlNATOR FOR TYPE ROUTINE 




1 CmO 


UUmmUO 


nnn 






$0CNT : 


.BYTE 


0 




;OC^^L DIGIT COUNTER 




1 

1 Cm I 


UUmmV// 


nnn 






SOFILL: 


.BYTE 


0 




.'ZE-iO FILL SWITCH 




1 CmO 


UUmm IV/ 


nnnnnn 






SOMOOE: 


.WORD 


0 




;NLM9eR Of DIGITS TO TYPE 




13AQ 

1 CM T 










.SaTTL 


POWER DOWN AND UP ROUTINES 




1 c ju 

1 3^1 






















1 C 3 1 










* « 












1 C3C 










.'POWER DOWN ROUTINE 








1 C J J 


UVmm I c 


ni?7^7 

U 1 C ' J' 


004552 


000024 


$PURDN: 


MOV 


#$lLLUP,*rPWRVEf 


»*crr cno fact 




1 3*iA 
1 C3m 


UUmmCU 


m ?7X7 

V 1 C/ 3/ 


000340 


000026 




MOV 


f340.a#PWRVEC*2 ; 


;PRI0:7 




1 cjj 


UUmmCO 


ni nn/.A 








MOV 


RO,-{SP) 




.'PUSH RO ON STACK 




1 3^A 
1 C30 


UUmm 


V/ 1 V/ 1 mO 








MOV 


RT.-(SP) 




.PUSH R1 ON STACK 




IC3f 


UUmm jC 


V/ 1 v/CmO 








MOV 


R2,-(SP) 




.PUSH R2 ON STACK 




1 C JO 


A/V/ 7/ 

VA/MM JM 


\J 1 V/JMO 








MOV 


R3,-(SP) 




.PUSH R3 ON STACK 




1259 


004436 


010446 








MOV 


R4.-(SP) 




.'PUSH R4 ON STACK 




1260 


004440 


010546 








MOV 


R5.-(SP> 




.PUSH R5 ON STACK 




1 3A1 
1 CO 1 


UUmmmc 


\J i f 1 MO 


174332 






MOV 


aSWR.-{SP) 




.PUSH aSUR ON STACK 




1 Cue 


VA/mmmO 


ninAA7 


000104 






MOV 


SP.$SAVR6 




.•SAVE SP 




1 C03 


Ul/MM JC 


U IC/ J' 


004464 


00002- 




MOV 


«SPWRUP,a#PWRVEC 


;;SET UP VECTOR 




1 COM 


A/V /.An 

UUmmOV/ 


v/VV/v/VAy 








HALT 








\ cD3 


UUmmOc 


UUv/ 'O 








BR 


.-2 


* 


;HAN6 UP 




1 3AA 
1 COO 

1 3A7 




















1 COf 

l3Afl 
> COO 










; POWER UP ROUTINE 








1 3AO 
1 coy 


AA// A/ 
UUmmOm 


m P7X7 

U 1 C / 3/ 


004552 


000024 


SPWRUP: 


MOV 


*$lLLUP.a*PWRVEC 


;;SET FOR tAST DOWN 




IC' V 


UUmm / C 


U i O' uo 


000060 






MOV 


$SAVR6.SP 




.-GET SP 




I C » I 


l/VMM f O 


UU3V/0' 


000054 






CLR 


SSAVR6 




;UAIT LOOP FOR THE TTY 




1 C ' c 


l/VM JVC 


UU3CO' 


000050 




1$: 


INC 


SSAVR6 




.WAIT FOR THE INC 




1273 


004506 


001375 








BNE 


IS 




;0F WORD 




127A 


004510 


012677 


174264 






MOV 


(SP)*,aswR 




;POP STACK INTO a:>WR 




1275 


004514 


012605 








MOV 


(SP)*,R5 




.POP STACK INTO R5 




1276 


004516 


012604 








MOV 


(SP)*,R4 




."POP STACK INTO R4 




^277 


004520 


012603 








MOV 


(SP)*.R3 




;POP STACK INTO R5 




1 C r O 


004 5?P 

WM ^CC 


01 ?60? 
V 1 c vvc 








MOV 


(SP)».R2 




;POP STACK INTO R2 




1279 


004524 


012601 








MOV 


(SP)*.R1 




.POP STACK INTO R1 




1280 


004526 


012600 








MOV 


(SP)*.RO 




.POP STACK INTO RO 





.MAIW. MACYll 30AU052) 17-APH-79 10: U PAGE 2? 
fZ^WAE.PII 17-APR-79 10:12 POWER DOWN 'V^O UP ROUTINES 



N 2 



SEO 0026 



1281 
1282 
1283 
128A 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
129A 
1295 
12% 
1297 
1298 
1299 



1507 
1308 
1309 
1310 
1311 
1512 
1315 
15K 
1315 
1516 
1517 
1318 
1319 
1320 
1521 
1322 
1525 
152^ 
1525 
1526 
1527 
1528 
1329 
1550 
1531 
1552 
1555 
153« 
1535 
1336 



OOA550 012737 00A4 12 C00024 

004556 012757 000340 O00026 

00A544 104401 

004546 004560 

004550 000002 

004552 000000 

004554 000776 

004556 000000 

004560 005015 047520 042527 

004566 000122 



tPWRMO: 

SILLUP: 

$SAVR6: 
SPOUcR: 

.S8TTL 



MOV 

MOV 

TVPE 

.WORD 

RTI 

HALT 

BR 

0 

.ASCIZ 



#SPWRDN.a#PWRV£C ;;SET UP THE POWER DOWN VECTOR 
#340.arPWRVfC*2 ;;PRI0:7 

.•REPORT THE POWER FAILURC 
SPOWER ; .'POWER FAIL MESSAGE POINTER 



.-2 

<15><12>"POWER" 



;;THE POWER UP SEQUENCE WAS STARTED 
;; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 



.EVEN 

TRAP DECODER 



•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 

•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

•Of THE DESIRED ROUUNE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 



1500 


004570 


010046 




STRAP: MOV 


RO.-(SP) 


* 


.SAVE RO 


1501 


004572 


016600 


000002 


MOV 


2(SP),R0 


* 


;GET TRAP ADDRESS 


1502 


004576 


005740 




TST 


-(RO) 




.BACKUP BY 2 


1503 


004600 


111000 




Move 


(RO) .RO 


» 


.-GET RIGHT BYTE OF TRAP 


1504 


004602 


006500 




ASL 


RO 


0 


.POSITION FOR INDEXING 


1505 


004604 


016000 


004624 


MOV 


STRPAD(RO),RO 


m 


; INDEX TO TABLE 


1506 


004610 


000200 




RTS 


RO 


• 


;G0 TO ROUTINE 



;;THIS IS USE TO M/WOLE THE 'TGETPRI" MACRO 



004612 
004614 
004622 



011646 

016666 000004 000002 
000002 



$TRAP2: 



MOV 
MOV 
RTI 



(SP)--(SP) 
4(SP). 2(SP) 



;;MOVE THE PC DOWN 
::M0VE THE PSW DOWN 
.-.•RESTORE THE PSW 



.SSTTL TRAP TABLE 



.••THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.••BY THE 'TRAP" INSTRUCTION. 



004624 
004626 
004650 
004632 
004634 



004656 
004640 
004642 

004644 
004646 
004650 
004652 



004612 
003424 
004210 
004164 
004224 



002640 
002760 
005264 

\777n 
000571 
000457 
000245 



ROUTINE 

STRPAD: .WORD 
$TYPE 
fTYPOC 
STYPOS 
$TYPON 



fTRAP2 

;CALL=TYPE 
;CALL=TYPOC 
;CALL=TYP0S 
;CALL=TYP0N 



TRAP+U104401) TTY TYPEOUT ROUTINE 

TRAP*2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

TRAP*3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TRAP*4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 



$RDCHR ;;CALL=RDCHR 
SRDLIN .•;CALL=ROLIN 
SROOCT ;;CALL=RDOCT 



TRAP*5( 104405) 
TRAP*6( 104406) 
TRAP*7( 104407) 



TTY TYPE IN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 



TXCRC : 



-1 

571 
457 
243 



;M9301 - YA VERSION 
;M9301 - Y8 VERSION 
;M9301 - YC VERSION 



.MAIN. MACY11 30A(1052) 17-APR-/'9 10:K PAGE ?8 
CZM9AE.P11 17-APR-79 10:12 TRAP TABLE 



1 777 




nrvr» A7^ 


O J J 


1 77fi 

1 J JO 




t\c\r\oc\7 




1 77Q 


UUmOOU 


nf\rvA7n 
UUUOf u 


^70 


15A0 


nn/.AA5 


nnni 79 




17/1 




nnn774 


^74 




rvnZ. AAA 


nnnA7n 

UUUd jU 


U J V 


1 7Z.7 




nnn^ 7A 

UUU J JO 




1 7/.Z. 






75? 


1 '?A^ 




uuuo J J 


633 


1 


nnA A7A 




650 


■•7^7 
"I 7Z.H 


nf »A 7nn 




710 




1 77777 


-1 


1 7/.0 




1 77777 


.1 

1 




nriA 7nA 


1 77777 

\ 1 1 1 1 1 


.1 


1 7*i1 




1 77777 
1 f f f f 1 


-1 


1 JJC 




1 77777 

\ 1 1 1 1 1 


-1 

1 


1 ^^'^ 
1 J 






Txi pr • -1 


1 

1 J J** 




1 77777 

I 1 1 1 1 1 


1 


nn^7i A 


1 J Jf c J 


133725 




nn^7?n 




17563 


1 ■^'57 


nfu.7?? 

UvH f cc 




141744 


1 -J JO 




047^=i1 

vH r O 1 J 


47613 


1 ■<=;t3 

1 JJy 




1 141 7S 


114175 


1 VvO 
1 JOU 




1 *tO 1 cu 


146126 


1 Vil 




13P161 


132161 


1 JSJC 




143466 


1A3A66 


1 


004736 


036751 


36751 


1 Vvi 




1P5411 


125411 


1 v>s 




0667'46 


066246 


1 V^A 




17?7A7 


132367 


1 %7 


004746 


030210 


30210 






036743 


367A3 




00475? 


1 77777 

1 r r F r F 


-1 




004754 


177777 

1 r r r r r 


-1 


1^71 




1 77777 

1 r r r f f 


-1 


1^7? 

1 J r C 


004760 


1 77777 

I f f f 1 1 


-1 


1 ■^7'^ 

1 Jf J 


004 7A? 

UVH f OC 


1 77777 


-1 




0O47^ 

VA/H f OH 


1 77777 

\ t t f 1 f 


-1 










1 ^7A 


0047^ 

V/VH f OO 


1 77777 

% f f f f f 


TDLNI • -1 


1^77 


004770 


001000 

\J\J \ \J\J\J 


1000 


1 J r O 


V/V^T f f C 


001000 

\J\J 1 vvv 


1000 






001000 


1000 




004776 


001000 


1000 


1^1 




001000 


1000 






004000 


4000 


1 JO J 




001000 


1000 

1 WW 






001000 

\J\J \ vvv 


1000 

1 www 


1385 


005010 


001000 


1000 


1386 


005012 


00073A 


734 


1387 


0050K 


001000 


1000 


1388 


005016 


001000 


1000 


1389 


005020 


001000 


1000 


1390 


005022 


001000 


1000 


1391 


00502A 


U7777 


-1 


1392 


005026 


^77777 


-1 



B 3 



Stu 0027 

M9400 - YA(OR YC) VERSION 

M9301 - YF VERSION 

M7942 - Y8 VERSION 

M9301- YD VERSION 

M9400 - YH (OR YK) VERSION 

M9311 VERSION — REVISION • (ORIGINAL REV.) 

.VI9301 - YH VERSION 

M9301 - YE VERSION 

M9301 - YJ VERSION 

M9400 - YN VERSION 

M9311 VERSION — REVISION A ( SECOND REV.) 



M9301 - YA VERSION 
M9301 - Y8 VERSION 
M9301 - YC VERSION 
,'19400 - YA(Oft YC) VERSION 
W9301 - YF VERSION 
M7942 - YB VERSION 
M9301 - YD VERSION 
M9400 - YH(OR YK) VERSION 
M9311 VERSION— REVISION • 
M9301 - YH VERSION 
M9301 - YE VERSION 
:M9301 - YJ VERSION 
:M9400 - YN VERSION 
:M9311 VERSION— REVISION A 



(ORIGINAL REV.) 



( SECOND REV.) 



M9301 - YA VERSION 

M9301 - Y8 VERISION 

M9301 - YC VERSION 

M9400 - YA(OR YC) VERSION 

M9301 - YF VERSION 

M7942 - Y8 VERSION 

fl9301 - VD VERSION 

M9400 - YH(OR YK) VERSION 

M9311 VERSION REVISION • (ORIGINAL VERSION) 

M9301 - YH VERSION 

M9301 - YE VERSION 

M9301 - YJ VERSION 

M9400 - YN VERSION 

M9311 VERSION- REVISION A (SECOND VERSION) 



.MAIN. MACY11 30A(105?) 17-APR-79 10:U PAGE 29 
CZri9AF.P11 17-APR-79 10:12 TRAP TABLE 



1393 


005030 


^77777 


-1 


139A 


005032 


"[77777 


-1 


1395 


005034 


1 77777 


-1 


1396 






TRMSA1: -1 


1397 


005036 


1 77777 


1398 


005040 


1 73000 


1 73000 


1399 


005042 


1 73000 


1 73000 


KOO 


005044 


1 73000 


1 73000 


1401 


005046 


1 73000 


173000 


K02 


005050 


1 73000 


173000 


K03 


005052 


1 70000 


1 70000 


1A0A 


005054 


1 73000 


173000 


"•405 


005056 


1 73000 


1 73000 


1406 


005060 


163000 


163000 


1407 


005062 


173000 


1 73000 


1408 


005064 


173000 


1 73000 


1409 


005066 


173000 


173000 
173000 


1410 


005070 


173000 


1411 


005072 


163000 


163000 


1412 


005074 


\77777 


-1 


1413 


005076 


\77777 


-1 


14U 


005100 


M7777 


-1 


1415 


005102 


Mini 


-1 


1416 


005104 


^77777 


-1 


1417 








1418 


005106 


-[77777 


TDLN2: -1 


1419 


005110 


001000 


1000 


1420 


005112 


001000 


1000 


1421 


005114 


001000 


1000 


1422 


005116 


001000 


1000 


1423 


005120 


001000 


1000 


1424 


005122 


000000 


0 


1425 


005124 


001000 


1000 


1426 


005126 


001000 


1000 


1427 


005130 


001000 


1000 


1428 


005132 


000764 


764 


1429 


005134 


001000 


1000 


1430 


005136 


001000 


1000 


1431 


005140 


001000 


1000 


1432 


005142 


001000 


1000 


1433 


005144 


^77777 


-1 


1434 


005146 


\77777 


-1 


1435 


005150 


-[77777 


-1 


1436 


005152 


1 77777 


-1 


1437 


005154 


^77777 


-1 


1438 








1439 


005156 


^77777 


TRMSA2: -1 


1440 


005160 


165000 


165000 


1441 


005162 


165000 


165000 


1442 


005164 


165000 


165000 


1443 


005166 


165000 


165000 


1444 


005170 


165000 


165000 


1445 


005172 


000000 


0 


1446 








1447 


005174 


165000 


165000 


1448 


005176 


165000 


165000 



C 3 



SEO 0028 



M9301 - YA VERSION 
M9301 - Y8 VERS J ON 
M9301 - YC VERSION 
M9400 - YACOR YC) VERGION 
M9301 - YF VERSION 
M7942 - Y8 VERSION 
M9301 - YD VERSION 
M9400 - YH(0R YK) VERSION 

I»19311 VERSION REVISION • ( ORIGINAL /ERSION) 
M9301 - YH VERSION 
M9301 - YE VERSION 
M9301 - YJ VERSION 
M9301 - YN VERSION 

n9311 VERSION REVISION A (SECOND VERSION) 



M9301 - YA VERSION 

M9301 - Y8 VERSION 

M9501 - YC VERSION 

«9400 -YA(OR YC) VERSION 

«9301 -YF VERSION 

M7942 - Y8 VERSION 

H9301 - YD VERSION 

H9400 - YH{OR YK) VERSION 

n9511 VERSION REVISION * (ORIGINAL REV.) 

«9501 - YH VERSION 

M9301 - r£ VERSION 

n9301 - YJ VERSION 

n9400 - YN VERSION 

miy\ VERSION REVISION A (SECOND REV.) 



;M9501 - YA VERSION 
;H9301 - Y8 VERSION 
;M9301 - YC VERSION 
;«9400 - YA(OR YC) VERSION 
;M9301 - YF VERSION 
;«7942 - Y8 VERSION 

;«9301 - YD VERSION 
;M9400 - YH(OR YK) VERSION 



.flAlN. WACY11 30A(^052) 17-APR-79 
CZM9AE.Pn 17-APR-79 10:12 



1U:K PAGE 30 
TRAP TASLf 



KA9 


005200 


166000 








166000 


K50 


005202 


165000 








165000 


1451 


005204 


165000 








165000 


K52 


005206 


165000 








165000 


1453 


005210 


165000 








165000 


1454 


005212 


166000 








166000 


1455 


005214 


Mim 








-1 


1456 


0052"" 6 


\77777 








-1 


1457 


005220 


y77777 








-1 


1458 


005222 
005224 


\77777 








-1 


1459 


\77777 








-1 


1460 












-1 


1461 


005226 
005230 


^77777 








1462 


006106 








»1SG1 


'•463 


005232 


006123 








MSG2 


1464 


005234 


006140 








WSG3 


1465 


005236 


006155 








«SG4 


1466 


005240 


006175 








MSGS 


1467 


005242 


006212 








nsG6 


1468 


005244 


006227 








f1SG7 


1469 


005246 


006244 








MSG10 


1470 


005250 


006270 








MSG11 


1471 


005252 


006347 








nSG12 


1472 


005254 


006364 








nSG13 


1473 


005256 


006401 








nsGU 


1474 


005260 


006416 








MSG1S 


1475 


005262 


006433 








nSG16 


1476 


005264 


\77777 








-1 


1477 


005266 


1 77777 








-1 


1478 


005270 


1 77777 








-1 


1479 


005272 


-[77777 








-1 


1480 


005274 


-[77777 








-1 


1481 














1482 












.ASCIZ 


1483 


005276 


005015 


030122 


0201 1 5 


TITL: 


1484 


005304 


042524 


052123 


000 




.ASCIZ 


1485 


005311 


015 


052012 


050131 


GETCftC: 


1486 


005316 


020105 


051103 


020103 






1487 


005324 


040526 


052514 


035105 






1488 


005332 


020040 


000 








1489 


005335 


015 


052012 


050131 


GETLPC: 


.ASCIZ 


1490 


005342 


020105 


050114 


020103 






1491 


005350 


040526 


052514 


035105 






1492 


005356 


020040 


000 






•ASCIZ 


1493 


005361 


015 


042412 


050130 




1494 


005366 


041505 


042524 


020104 






1495 


005374 


051103 


020103 


020075 






1496 


005402 


000040 








.ASCIZ 


1497 


005404 


005015 


042412 


050130 


EXLP«G: 


1498 


005412 


041 505 


042524 


020104 






1499 


005420 


050114 


020103 


020075 






1500 


005426 


000040 








.ASCIZ 


1501 


005430 


005015 


047503 


050115 


ACCRMG: 


1502 


005436 


052125 


042105 


041440 






1503 


005444 


041522 


036440 


020040 






1504 


005452 


000 











D 3 



M93n VERSION REVISION • ' ORIGINAL REV.) 
M9501 - VH VERSION 
M9301 - rE VERSION 
M9301 - VJ VERSION 
W9400 - YN VERSION 

M9311 VERSION REVISION A ( SECOND REV.) 



;W7942 - Y8 VERSION 



M9301 - YH VERSION 
«9501 - VE VERSION 
W301 - VJ VERSION 
M9400 - YN VERSION 
H9311 REVISION A f SECOND RErf.) 



<15><12>/R0M TEST/ 
<15><12>/TYP£ CftC VALUE: / 

<15><1?>/TVPE LPC VALUE: / 

<15><1?'»/fXPeCTE0 CRC = / 

<l5xi<^>02>/E¥PECTED LPC = / 

<15><12>/C0«PUTE0 CRC = / 



.MAIN. MACY11 30A(1052) 17-APR-/'9 
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10: K PAGE 31 
TRAP TABLE 



E 3 



SEO 0030 



1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

15U 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

152<. 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

153A 

1535 

1536 

1537 

1538 

1539 

15A0 

1541 

15A2 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 



005453 
005460 
005466 
005474 
005476 
005504 
005512 
005515 
005522 
005530 
005536 
005544 
005552 
005560 
005566 
005574 
005575 
005602 
005610 
005616 
005624 
005632 
005640 
005646 
005654 
005655 
005662 
005670 
005676 
005704 
005712 
005720 
005726 
005734 
005735 
005742 
005750 
005756 
005764 
005772 
006000 
006006 
006014 
006015 
006020 
006023 
006030 
006036 
006044 
006052 
006060 
006064 
006072 
006100 



015 
052520 
050114 
000040 
005015 
047440 
052123 
015 
020105 
044524 
042104 
020106 
047522 
051104 
041501 
000 
015 
020105 
044524 
042104 
020106 
047522 
051104 
041501 
000 
015 
020105 
044124 
042524 
020106 
047522 
051104 
041501 
000 
015 
020105 
044124 
042524 
020106 
047522 
051104 
041501 
000 
015 
020040 
015 
042522 
020040 
020040 
042040 
020072 
005015 
053517 
052504 



041412 
042524 
020103 

042412 
020106 
000 
052012 
052123 
043516 
027122 
051461 
0201 1 5 
020056 
035105 

052012 
052123 
043516 
027122 
047062 
020115 
020056 
0351C5 

052012 
042514 
024040 
024523 
051461 
020115 
020056 
035105 

052012 
042514 
024040 
024523 
047062 
020115 
020056 
035105 

000012 
000 
040412 
051523 
020040 
020040 
052101 
000040 
047125 
020116 
042514 



006106 005015 034515 



046517 
020104 
020075 

042116 
042524 

050131 
051101 
040440 
047440 
020124 
042101 
050123 
020040 

050131 
051101 
040440 
047440 
020104 
042101 
050123 
020040 

050131 
043516 
054502 
047440 
020124 
042101 
050123 
020040 

050131 
043516 
054502 
047440 
020104 
042101 
050123 
020040 



042104 
020040 
020040 
020040 
000101 

047113 
047515 
000040 

030063 



ACLPMG: .ASCIZ <1 5><12>/COMPUrED LPC 



EOTST; 
SA1 : 



.ASCIZ <15><12><12>/END Of TEST/ 



.ASCIZ <15><12>/TYPf STARTING ADDR. OF IST ROM ADDR. SPACE: / 



SA2: 



.ASCIZ <15><12>/TVPE STARTING ADDR. OF 2ND ROM ADDR. SPACE' / 



SIZE1: .ASCIZ <15><12>/TYPE LENGTH (SVIES) OF IST ROM ADDR. SPACE: / 



SIZE2: .ASCIZ <15><:2>/TVPE LENGTH C8VTES) OF 2ND ROM ADDR. SPACE: / 



CARLF: .ASCIZ <15><12> 

SP2: .ASCIZ / / 

TVPHDR: .ASCIZ <15><12>/AOORESS 



COLON: .ASCIZ /: / 

AUTERM: .ASCIZ <15><12>/UNKNOUN MODULE / 



MSG1: .ASCIZ <15><12>/M9301 - YA/ 



DATA/ 
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SEO 0031 



1561 

1562 

1565 

156A 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

^573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

^589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 



006114 
006122 
006123 
006130 
006136 
006140 
006146 
006154 
006155 
006162 
006170 
006175 
006202 
006210 
006212 
006220 
006226 
006227 
006234 
006242 
006244 
006252 
006260 
006266 
006270 
0062/6 
006304 
006312 
006320 
006326 
006334 
006342 
006347 
006354 
006362 
006364 
006372 
006400 
006401 
006406 
006414 
006416 
006424 
006432 
006433 
006440 
006446 
006454 
006462 
006470 
006^-76 
006504 



020061 
000 
015 
030460 
000102 
005015 
020061 
000 
015 
030060 
026101 
015 
030460 
000106 
005015 
020062 
000 
015 
030460 
000104 
005015 
020060 
047450 
000051 
005015 
020061 
044523 
020052 
052101 
026505 
031462 
034501 
015 
030460 
000110 
005015 
020061 
000 
015 
030460 
000112 
005015 
020060 
000 
015 
030461 
051511 
020101 
052101 
026505 
031462 
034501 
000001 



020055 040531 



046412 
026440 

034515 
020055 

046412 
026440 
041551 
046412 
026440 

033515 
020055 

046412 
026440 

034515 
020055 
020122 

034515 
042522 
047117 
046050 
047511 
020065 
032455 
020051 
046412 
026440 

034515 
020055 

046412 
026440 

034515 
020055 

046412 
051040 
047511 
046050 
047511 
020065 
033055 
020051 



031471 
054440 

030063 
041531 

032071 
054440 
000 
031471 
054440 

032071 
041131 

031471 
054440 

030064 
044131 
045531 

030463 
044526 
020040 
041517 
020116 
020075 
032062 
000 
031471 
054440 

030063 
042531 

031471 
054440 

030064 
047151 

031471 
053105 
020116 
041517 
020116 
020075 
034070 
000 



MSG2; .ASCIZ <15><12>/M9301 - V8/ 



MSG3: .ASCIZ <15><12>/M9301 - rC/ 



l«1SG4: .ASCIZ <1 5><12>/M9400 - VA,yC/ 



MSG5: .ASCIZ <15><12>/M9301 - VF/ 



MSG6: .ASCIZ <15><12>/«7942 - V8/ 



MSG7: .ASCIZ <15><12>/«9301 - VD/ 



HSG10: .ASCIZ <15><12>/H9400 - VMfOft VK)/ 



nSGII: .ASCIZ <15><12>/W311 REVISION • (LOCATION E-5 = 23-524A9) / 



«SG12: 
»fSG13: 
nSGU: 
«SG15: 
nSGl6: 



.ASCIZ <15><12>/W501 - VH/ 



.ASCIZ <15><12>/PW501 - iif 



.ASCIZ <15><12>/P»501 - VJ/ 



.ASCIZ <15x12>/«9400 - YN/ 



.ASCIZ *'15x12>/«951T REVISION A (LOCATION E-5 = 23-688A9) / 



.END 
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